ADO与ACCESS的连接，在线等待

Question

工程-引用-Microsoft ActiveX Data Objects 2.5 LibraryDim cnn As ADODB.Connection
Dim rst As ADODB.Recordset    Set cnn = New ADODB.Connection
    cnn.ConnectionString = _
     "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source=" & _
      CurrentProject.Path & "\ConnectToMe.MDB"
    cnn.Open
    Set rst = New ADODB.Recordset
    rst.Open "tblCustomers", CurrentProject.Connection
    ......
    rst.Close
    Set rst = Nothing
    Set cnn = Nothing

Answer 1

Dim conMainMdb As New ADODB.Connection
Dim rstMainMdb As New ADODB.Recordset
'只用于连接Access
conMainMdb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\MainMDB.mdb;Persist Security Info=False"
    conMainMdb.Open
    With rstMainMdb      
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .ActiveConnection = conMainMdb
        .Open "SELECT * FROM [check] order by 编号 "
        
    End With

Answer 2

dim cnn as new adodb.connection
dim rs as new adodb.recordset
dim str as string
set cnn=new adodb.connection
set rs=new adodb.recordset
str="driver={microsoft access driver (*.mdb);dbq=要连接的数据库名;"
cnn.open str
rs.activeconnection=cnn
rs.open "select * from 要打开的数据表"

Answer 3

Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.Properties("Data Source") = "c:\123.mdb;"
.Open
End With
这样写出现找不到123.mdb文件，问题出在哪里，请大家指点！

Answer 4

你犯了一个小小的错误：
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.Properties("Data Source") = "c:\123.mdb;"   <-----去掉;
.Open
End With改成：
.Properties("Data Source") = "c:\123.mdb"

Answer 5

对不起，应该改成
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = "c:\123.mdb"
.Open
End With