主题：如何从数据库取得名称及密码，能举个例子？

参考

Dim dr As DataRow = DataTables("密码表").Find("用户名 = '" & username & "'")

If dr IsNot Nothing AndAlso dr("密码") = password then

    Verified  = True

End If