用vb和access做一个登录对话框，希望能讲的详细点，包括连结数据库，数据源，最好在代码后都有注释

Private Sub Command1_Click()
Dim sql As String
Dim rs_lin As New ADODB.Recordset '定义此时数据库中的表
If Trim(Text1.Text) = "" Then ' 判断输入的用户名是否为空
MsgBox "用户名不能为空,请重新输入", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus

Else
sql = "select * from users where 用户名='" & Text1.Text & "'"
rs_lin.Open sql, Conn, adOpenKeyset, adLockPessimistic

If rs_lin.EOF = True Then '在数据库中没找到用户名
MsgBox "没有这个用户，请重新输入", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
rs_lin.Close
set re_lin = nothing

Else

' 检验密码是否正确

'用户名和密码通过后，要关闭本窗体并打开主窗体。

If Trim(rs_lin.Fields(1)) <> Trim(Text2.Text) Then

MsgBox "密码不正确，请重新输入", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Text2.T