主题：[求助]移动端修改密码

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