Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()    Dim ConnStr As String
    ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Persist Security Info=False;" & "Data Source=c:\data.mdb;" & "Database Password=123456;"
    conn.Open ConnStr  '/***************Error*********/
End Sub
出线实时错误,找不到可插入的ISAM?
:(

解决方案 »

  1.   

    access2000 的话Provider=Microsoft.Jet.OLEDB.4.0
      

  2.   

    ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=c:\data.mdb;Jet OLEDB:Database Password=123456"
      

  3.   

    Provider=Microsoft.Jet.OLEDB.4.0;Password=123456;Data Source=c:\data.mdb;Persist Security Info=True
      

  4.   

    ....."Database Password=123456;"
    去掉最后的“;”
    可以如下修改:DbName="c:\data.mdb"
    Password="123456"Cn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & ";Jet OLEDB:Database Password=" & Password & ";Persist Security Info=False"
    Cn.Open
      

  5.   

    Dim objcon As New ADODB.Connection
    Dim objrs As New ADODB.Recordset
    objcon.Open "Provider=Microsoft.Jet.OLEDB.3.51;Jet OLEDB:database password=123456;Data Source=c:\data.mdb"
    这样试一下