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)

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

连接不上数据库？
D:\VB应用\VB数据库开发实例\实例01.mdb?
用户名=txtusername.text?

FileName = "D:\VB应用\VB数据库开发实例\实例01.mdb"
DbPw = "操作员密码"
CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw & "