1、登陆页面
http://www.foxtable.com/mobilehelp/scr/0138.htm
2、修改页面判断代码
Dim fdr As Datarow = DataTables("用户表").SqlFind("用户名 = '" & userName & "'")
If fdr IsNot Nothing AndAlso fdr("密码") = password Then
Verified = True
End If