但是还不行
我的程序是这样的
Dim cou As ADODB.Connection
Dim cour As ADODB.Recordset
Set cou = New ADODB.Connection
Set cour = New ADODB.Recordset
cou.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\class.mdb;Persist Security Info=False"
cou.Open
cour.Open "tables", cou, adOpenKeyset, adLockOptimistic, adCmdTable

解决方案 »

  1.   

    cou.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\class.mdb;Persist Security Info=False user=absce password=12345"
      

  2.   

    cou.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\class.mdb;Persist Security Info=False user=absce password=12345"
    看看你的数据库位置,还有要把用户名和密码改成自己的!!
      

  3.   

    cou.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\class.mdb;Persist Security Info=False;jet oledb:database password=12345"
    代用户名的没试过。
      

  4.   

    同意楼上的
    password为用户密码
    而database password才是数据库密码
      

  5.   

    cou.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\class.mdb;Persist Security Info=False;jet oledb:database password=12345"
    也行不同啊