主题：原始用户表移动版 注册

可以啊，参考

Dim oldpwd As String = "123456"
Dim newpwd As String = "abc"
Dim fdr As DataRow = DataTables("表A").Find("config like '%" & MD5Encrypt(oldpwd) & "%'")
If fdr IsNot Nothing Then
    fdr("config") = fdr("config").replace(MD5Encrypt(oldpwd), MD5Encrypt(newpwd))
Else
    msgbox("密码不正确")
End If