求一个用VB做登陆界面并与.mdb文件连接的详细代码 大侠们,请帮一下我吧

Dim zong As Integer

Private Sub Command1_Click()
'登录确认
Dim sqldl As String
Dim sf As String
If zong = 3 Then '若用户输入的次数超过三次，则自动退出
Unload Me
Exit Sub
End If

If Trim(Text1.Text = "") Then
MsgBox "没有输入用户名,请输入!", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
zong = zong + 1 '累加输入次数
Exit Sub
End If
Call SJK(db) '连接数据库
strSQL = "select * from 登录表 where 名称='" & Text1.Text & "' "
RS.Open strSQL, db, 2, 2
If RS.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
RS.Close
Call GBSJK
zong = zong + 1
Exit Sub
End If

If RS("密码") <> Trim(Text2.Text) Then
MsgBox &