Public Sub Daten_schreiben(ByVal DBPath As String, 
                               ByVal Table As String,                
                               ByVal Daten() As Object)
        Dim da As New OleDbDataAdapter("Select * From " & Table, DBPath)
        Dim cb As New OleDbCommandBuilder(da)
        Try
            Dim dt As New DataTable(Table)
            da.FillSchema(dt, SchemaType.Source)
            dt.Rows.Add(Daten)
            da.Update(dt)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Private Sub TestIt()
        Dim satz() As Object = New Object() {6, 123, DateTime.Now, "Please to " & _
          "remember the fifth of November"}
        Daten_schreiben(TheConnectionString, "Reminder", satz)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist