参考
Dim dr As DataRowdr = DataTables("users表").Find("Name = '" & UserName & "'") If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then Verified = TrueEnd If