林建岳怎么评价王祖贤:VB与ACCESS连接的问题

我用VB实现的物业管理系统,要和以有的*.mdb文件项链,如何连接.
我的系统登陆的用户名和密码储存在*.mdb的数据库文件中,其中登陆界面的数据库连接代码如下:

Private Function Check_PassWord() As Byte
On Error GoTo gpError
Dim objCn As New Connection, objRs As New Recordset
Dim strCn As String, strSQL As String
'建立数据库连接
strCn = "Provider=MSDASQL.1;Persist Security Info=False;" & _
"Data Source=物管数据DSN"
objCn.ConnectionString = strCn
objCn.ConnectionTimeout = 30
objCn.Open
'执行查询命令,获得用户登录口令
strSQL = "SELECT * FROM 系统用户 WHERE 用户名='" & txtLog(0) & "'"
Set objRs.ActiveConnection = objCn
objRs.Open (strSQL)
'判断有无查询结果
If objRs.EOF Then
Check_PassWord = 0 '没有查询结果，表示该用户为非法用户
Else
'检查口令是否正确
If txtLog(1) <> Trim(objRs.Fields("口令")) Then
Check_PassWord = 1 '口令不正确
Else
Check_PassWord = 2 '口令正确
'保存用户信息
CurrentUserName = objRs.Fields("用户名").Value
CurrentUserPassword = objRs.Fields("口令").Value
CurrentUserStatus = objRs.Fields("身份").Value
End If
End If
'关闭数据库连接，释放对象
objCn.Close
Set objRs = Nothing
Set objCn = Nothing
Exit Function
gpError:
Check_PassWord = 255
End Function

请问:这是如何实现数据库连接??谢谢