用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
  ......