用OLE DB,Connection对象可以如此打开:
......
Dim cnnResults As ADODB.Connection
Set cnnResults = New ADODB.Connection
cnnResults.CursorLocation = adUseClient
cnnResults.ConnectionTimeout = 30
cnnResults.Mode = adModeReadWrite
cnnResults.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnResults.ConnectionString = "x.mdb"
cnnResults.Open
......
......
Dim cnnResults As ADODB.Connection
Set cnnResults = New ADODB.Connection
cnnResults.CursorLocation = adUseClient
cnnResults.ConnectionTimeout = 30
cnnResults.Mode = adModeReadWrite
cnnResults.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnResults.ConnectionString = "x.mdb"
cnnResults.Open
......
是不是把我程序中关于连接的语句换成你写的这几句就可以用了?
其余的结果集、记录等都没有什么影响?