主题：【移动开发】用户名与密码怎么修改为数据库比对呢？

改成

Dim dr As DataRow = DataTables("user").Find("[name] = '" & UserName & "'")
If dr isnot Nothing AndAlso Password = dr("password") Then
    Verified  = True
End If