批量修改超链接路径

例：

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("tbl")
    Do Until rst.EOF
        If IsNull(rst![超链接]) = False Then
            rst.Edit
            'rst![超链接] = "要修改的超链接 格式为：要显示的文本#文件地址#"
            If 需要修改为A类合同的条件 Then
                rst![超链接] = Replace(rst![超链接], "合同\", "合同\A类合同\")
            Else
                rst![超链接] = Replace(rst![超链接], "合同\", "合同\B类合同\")
            End If
            rst.Update
        End If
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing