Dim cnn As ADODB.Connection 
    cnn.connectionString = "uid=lqlin;pwd=;Driver={ Microsoft Access driver (*.mdb) };DBQ=E:\database\system.mdb"
    cnn.open 
但运行时报错!
如果这样写:
  Dim cnn As ADODB.Connection
  Dim connectionString As String   
  cnn.open connectionString = "uid=lqlin;pwd=;Driver={ Microsoft Access driver (*.mdb) };DBQ=E:\database\system.mdb"   也报错,不知道是怎么加回事!
  请赐教!

解决方案 »

  1.   


        cnn.connectionString =  "Provider=Microsoft.Jet.OLEDB.4.0;Data SourceE:\database\system.mdb;uid=lqlin;pwd=;"
      

  2.   

    Dim connectionString As String
    connectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=E:\database\system.mdb;Jet OLEDB:Database Password=***"
    cnn.open
      

  3.   

    不好意思,写错了,应该是cnn.open ConnectionString
      

  4.   

    为什么不能用Driver={ Microsoft Access driver (*.mdb) };呢?
      

  5.   

    Dim cnn As ADODB.Connection ---> Dim cnn As NEW ADODB.Connection
      

  6.   

    Dim cnn As new ADODB.Connection 
    dim strDB as string
    strDB=App.path+"\database\system.mdb;Jet OLEDB:database password=你的數据庫密碼;"
    cnn.connectionstring="provider=Microsoft.Jet.OLEDB.4.0;data source=" & strDB
    cnn.open
    app.path是指你的程序或可执行文件与数据库在同一目录下