Datensatz einer Access Datenbank ändern

Option Explicit



Dim ldbMDB As Database

Dim lrsMDB As Recordset



Sub Datenbankeintrag(arrImport)



Dim X





Set ldbMDB = OpenDatabase(dbPath & "/" & dbName)

Set lrsMDB = ldbMDB.OpenRecordset("OSR", dbOpenDynaset)



lrsMDB.AddNew



For X = 1 To UBound(arrImport, 2)

    lrsMDB.Fields(arrImport(0, X)) = arrImport(1, X)

Next

lrsMDB.Update



Exit Sub

Ausgang:

ldbMDB.Close



End Sub