用ADO吧:
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;PERSIST SECURITY INFO=TRUE;Data Source=" & App.Path & "\db.mdb" , "管理员", "1111"

解决方案 »

  1.   

    '用Dao
    Dim mywork As Workspace
    Dim mydb As DatabaseSet mywork = DBEngine.Workspaces(0)
    Set mydb = mywork.OpenDatabase("C:\db1.mdb", False, False, ";pwd=abc")    '以共享、读写方式打开
      

  2.   

    '用Dao
    Dim mywork As Workspace
    Dim mydb As DatabaseSet mywork = DBEngine.Workspaces(0)
    Set mydb = mywork.OpenDatabase("c:\db1.mdb", False, False, ";pwd=abc")    '以共享、读写方式打开,密码:abc
      

  3.   

    用ADO: 
    Dim TAdoCn  As New Connection
    TAdoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=1234;Data Source="c:\a.mdb"
      

  4.   

    DAO方法: 
    Dim db1 As Database 
    Set db1 = mywork.OpenDatabase("库的路径", False,False, ";pwd=123")        
     
    ADO方法:  
    Dim Cn As New Connection 
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security  Info=False;Jet OLEDB:Database Password=1234;Data  Source="库的路径"