dim conn as new adodb.connection conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ip\\path\test.mdb;Persist Security Info=False"
用ADO dim cn as adodc.connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.CursorLocation = adUseClient conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ip\\path\test.mdb;Persist Security Info=False"
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ip\\path\test.mdb;Persist Security Info=False"
dim cn as adodc.connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ip\\path\test.mdb;Persist Security Info=False"