主题：用户问题

参考

Dim dr As DataRow
dr = DataTables("users表").Find("Name = '" & UserName & "'") 
If dr IsNot Nothing AndAlso dr("password") = password Then
    Verified  = True
End If