Private Sub DatenbankOeffnen()
dbFile = "Pfad der Datenbank"
Set Db = DBEngine.Workspaces(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)
End Sub
 
'Beispiel: Datensatz ändern:
    Dim SQL As String
 
    DatenbankOeffnen
    SQL = "UPDATE Tabellenname SET FeldEins = '" & Text3.Text & "', FeldZwei =" & _
      "'" & Text4.Text & "' WHERE ID = " & intIndex
    Db.Execute (SQL)