主题：数据库用户名和密码读取

改成

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