Set oConn = New ADODB.Connection
With oConn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = "pfad_zur_Datenbank.mdb"
  .Properties("Persist Security Info") = False
 
  [color=green]' ggf. Passwort angeben
  If sPassword <> "" Then
    .Properties("Jet OLEDB: Database Password") = sPassword
  End If
  .Open
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de