' Die Auslegung der Sub zielt darauf verschiedene Datenbanken und verschiedene 
' Tabellen zu befüllen
    Public Sub Daten_schreiben(ByVal DBPath As String, ByVal Table As String, _
      ByVal Daten() As Object)
        Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
        "Source=" & AppPath & "\Kunden.mdb")
        Dim cmd = New OleDbCommand
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
          & AppPath & "\Kunden.mdb"
        cmd.Connection = con
        con.Open()
        Dim da As New OleDbDataAdapter("Select * From " & Table, con)
        Dim cb As New OleDbCommandBuilder(da)
        Dim dt As New DataTable(Table)
        Dim ds As New DataSet
        Dim dr As DataRow
        da.Fill(ds, "Kunden")
        Try
            ds.Tables("Kunden").PrimaryKey = New DataColumn() {ds.Tables( _
              "Kunden").Columns("Equi")}
            dr = ds.Tables("Kunden").Rows.Find(Daten(0))    'Prüfen ob 
            ' Datensatzvorhanden ist
            If dr.IsNull(0) = True Then                     ' Wenn nein, dann...
                bolEquiGut = True
            Else                                            'wenn doch....
                frmUpdate.ShowDialog()                      ' Abfragefenster 
                ' starten, wie mit
                'dem vorhandenen Datesatz umgegangen werden soll
                If bolEnd = True Then                                           
                    MessageBox.Show("Vorgang wurde abgebrochen", "Meldung") 
                    GoTo Ende
                End If
                If bolUpdate = True Then
                    dr.BeginEdit()
                    dr.ItemArray = Daten
                    dr.EndEdit()
                    GoTo Update
                Else
                    dr.Delete()
                End If
                bolEquiGut = False
            End If
            'Datensatz hinzufügen (das Array "Daten" wird im restlichen Code 
            ' mit Daten befüllt) 
            ds.Tables("Kunden").Rows.Add(Daten)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
Update:
        da.Update(ds.Tables("Kunden"))
Ende:
        con.Close()
        ds.Clear()
    End Sub