求救,VB怎样做一个身份验证

来源：百度知道 编辑：UC知道 时间：2024/06/25 19:43:55
我用的access,数据库名字date.mdb,表名字users,里面有名称和密码!
VB有两个Text1和text2,分别表示名称和密码,Command1和Command2表示确定和取消,已经把adod连接到data里,在VB里我应该怎样做下去,使能够身份验证??有谁能帮帮我!
不要拿别人的答案当答了我啊,我想要的是正确的答案``````拜托!!谢谢

'窗体
Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()
If CheckUserName(txtUsername.Text, txtPassword.Text) Then
MsgBox "成功"
Else
MsgBox "错误"
End If
End Sub

'模块
Option Explicit

Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub Main()

On Error GoTo Error1

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\user.mdb"
Conn.Open

frmLogin.Show
Exit Sub

Error1:

MsgBox "程序出错" & vbCrLf & Err.Description, vbCritical, "错误"
End

End Sub

Public Function CheckUserName(Username As String, Password As String) As Boolean
Dim SQL As String
SQL = "select * from users where username='" & Username & "' and password='" & Password &