Access DB updaten

[whisky1108]

Hallo Leute,

ich möchte meine Access DB für mein in VB geschriebenes Programm immer auf dem aktuellsten Stand halten.
Desshalb möchte ich per update Button aus einer besteheden Exel Datei alle vorhandenen Tabellen in meine Access Datenbank übertragen da es über 120000 Datensätze sind, enthält die Exel Datei mehrere Tabellen Blätter

Ein connect zur Access DB besteht schon.

Hab ein wenig Googled und den u.g. Code gefunden.
Wenn ich mit dieser Funktion meine Exel Datei öffne, müßte ich nur noch wissen wie ich die Daten in meine DB bekomme:

Function ZellInhalt(XlsDatei as str, Zelle as string) as string
Dim XL As Excel.Application
Dim XLWorkBook As Excel.Workbook
Dim XLWorkSheet As Excel.Worksheet
Dim z As Integer
Dim wbk As String

' Excel öffnen
On Error Resume Next
Set XL = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set XL = CreateObject("Excel.Application")
If Err.Number Then
MsgBox "Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler"
End
End If
End If
On Error GoTo 0

' Excel-Datei öffnen
Set XLWorkBook = XL.Workbooks.Open(XlsDatei)
Set XLWorkSheet = XLWorkBook.ActiveSheet

' Inhalt der gewünschten Zelle ermitteln
ZellInhalt = XLWorkSheet.Range(Zelle).Value

' Excel schließen
XLWorkBook.Close False
Set XLWorkSheet = Nothing
Set XLWorkBook = Nothing
Set XL = Nothing

End Function

Da ich noch relativ frisch bin, hoffe ich das ihr mir helfen könnt.

Gruß,
Andreas