Dim oConn As ADODB.Connection
 
Set oConn = New ADODB.Connection
With oConn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = "Pfad_und_Dateiname.mdb"
  .Properties("Persist Security Info") = False
 
  ' Connection öffnen
  .Open
 
  ' bzw. SQL-Anweisung ausführen
  .Execute "bla bla bla"
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de