vb.net用户登录,vb做登录系统

VB.NET用户登录，账号密码正确，却提示密码错误！

Private Sub BtOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btok.Click

10年积累的成都网站设计、成都做网站经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站制作后付款的网站建设流程，更有茂南免费网站建设让你可以放心的选择与我们合作。

Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Admin.accdb;Persist Security Info=True")

Dim com As OleDbCommand = New OleDbCommand("select * from 用户名", con)

con.Open()

Dim h1 As OleDbDataReader

Dim table As New DataTable

h1 = com.ExecuteReader()

table.Load(h1)

If txtName.Text = "" Then

MsgBox("请输入用户名", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

ElseIf txtName.Text "" And txtPasswd.Text = "" Then

MsgBox("请输入密码", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

ElseIf table.Select("用户名='" txtName.Text "'").Length 0 Then

If table.Select("用户名='" txtName.Text "'")(0)("密码").ToString = txtPasswd.Text Then

MsgBox("成功登陆", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示") Then

Form1.Show()

Me.Visible = False

Exit Sub

Else

MsgBox("密码错误", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

End If

Else

MsgBox("用户名不存在", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

Exit Sub

End If

table.Clear()

h1.Close()

con.Close()

End Sub

vb.net多个用户登录系统怎么做

需要连接数据库，你可以用access做个小型数据库

每次系统登录的时候，根据用户名去数据库查询密码