求一段用户登陆（用户名　口令）的代码！
登陆用户记录是用ACCESS做的！access里的记录我已经搞好了～
有找到一段代码，可是是连接SQL的！
我要的是要连接到ACCESS的！
请大家帮忙搞下～把重要的那几句写给我！谢谢！


Private Sub Command1_Click()
Dim mrc As Adodb.Recordset
Dim txtsql As String
txtsql = "select * from oper where 用户名='" & Trim$(Text1(0).Text) & "'" & "and 口令='" & Trim$(Text(1).Text) + "'"
Set mrc = exesql(txtsql)
If mrc.RecordCount = 0 Then '未找到该用户记录
n = n + 1
If n < 3 Then
MsgBox "没有这个用户,继续登陆", vbOKOnly + vbExclamation, "信息提示"
Text1(0).Text = ""
Text1(1).Text = ""
Text1(0).SetFocus
Else
MsgBox "已经登陆失败三次,退出系统", 0 + 48, "提示信息"
mrc.Close '关闭记录集对象
Unload Me
End If
Else '找到合法用户
mrc.Close
Unload Me
frmmain.Show 1
End If
End Sub