Recordset über Excel aus AccessDB löschen

LG
Thomas

Sub ExcelDateienInAccess()

Dim db As database
Dim rs As Recordset
Dim i As Long

Set db = opendatabase("C:\Dokumente und Einstellungen\severa\Eigene Dateien\PLAN.mdb")
Set rs = db.openrecordset("PLAN", dbopendynaset)

i = 0

Sheets("Tabelle1").Range("A2").Select

On Error GoTo fehlerm

Do While ActiveCell.Value <> ""

rs.AddNew
rs!Konto = ActiveCell.Value
rs!KST = ActiveCell.Offset(0, 1).Value
rs!Jahr = ActiveCell.Offset(0, 2).Value
rs!Periode = ActiveCell.Offset(0, 3).Value
rs!Betrag = ActiveCell.Offset(0, 4).Value

rs.Update
ActiveCell.Offset(1, 0).Select
i = i + 1

Loop
MsgBox "Datentransfer erfolgreich beendet! " & Chr(13) & _
"Es wurden " & i & "Sätze eingelesen!"

rs.Close
db.Close
Exit Sub

fehlerm:
MsgBox "Es ist ein Fehler aufgetreten!"
End Sub