Private bolEnd, bolUpdate As Boolean
 
    Public Sub Daten_schreiben(DBPath As String, Table As String, ByVal Daten() _
      As Object)
        Dim conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
 
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim dr As DataRow
 
        Try
            Using da As New OleDbDataAdapter("Select * From " & Table, conStr),
                 cb As New OleDbCommandBuilder(da)
                da.Fill(ds, Table)
                dt = ds.Tables(Table)
                dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
                'Prüfen ob Datensatz vorhanden ist
                dr = dt.Rows.Find(Daten(0))    
                If dr IsNot Nothing Then
                    ' Abfragefenster 
                    ' starten, wie mit
                    'dem vorhandenen Datesatz umgegangen werden soll
                    frmUpdate.ShowDialog()
                    Select Case True
                        Case bolEnd
                            ' Nix machen
                            MessageBox.Show("Vorgang wurde abgebrochen", _
                              "Meldung")
                            Exit Sub
                        Case bolUpdate
                            ' Bestehenden Datensatz ändern
                            dr.BeginEdit()
                            dr.ItemArray = Daten
                            dr.EndEdit()
                        Case Else
                            ' Alten Satz löschen
                            dr.Delete()
                    End Select
                Else
                    'Datensatz ist neu
                    dt.Rows.Add(Daten)
                End If
                ' DB updaten
                da.Update(ds, Table)
            End Using
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Dim satz() As Object = New Object() {6, 124, DateTime.Now, "blahblah"}
    Daten_schreiben("|DataDirectory|\MeineDB.mdb", "MeineTabelle", satz)

________
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