为何连不上数据库？？？

Dim objcn As New Connection, objrs As New Recordset, strcn As String
   Dim strsql As String
   objcn.ConnectionString = "provider=microsoft.jet.oledb.3.51 ; data source = D:\VB应用\VB数据库开发实例\实例01.mdb"
                           
   objcn.Open
   strsql = "select  口令 from 系统用户 where 用户名=txtusername.text "
   Set objrs.ActiveConnection = objcn
   objrs.Open (strsql)

在这段程序中为什么连接不上数据库？为什么啊？请高手指点指点！万分感激！！！