Private Sub DatenbankOeffnen()
dbFile = "Pfad"
Set Db = DBEngine(0).OpenDatabase(dbFile, dbDriverNoPrompt, False, "Provider =" & _
  "SQLOLEDB.1;DRIVER=SQL" & _
  "Server;SERVER=PCName\SQLEXPRESS;Database=Datenbankname;UID=Benutzername;PWD" & _
  "Passwort;")
Set Tabelle = Db.OpenRecordset("Tabellenname", dbOpenDynaset, dbSeeChanges)
End Sub
DatenbankOeffnen
    SQL = "DELETE FROM Tabellenname WHERE ID = " & intIndex
    Db.Execute (SQL), dbSeeChanges