' Prozedur: Speichert die Daten eines Dataset in einer Datenbank
    Public Sub DataSetUpdate(ByVal DataSet As DataSet, ByVal FilePath As String)
        ' Neue Instanz einer Datenverbindung und Übergabe des Pfades
        Dim MyConnection As New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & FilePath)
        ' Neue Instanz eines mit der Datenverbindung verbundenen Adapters
        Dim MyAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM Sheets", _
          MyConnection)
        ' Neue Instanz eines OleDBCommandBuilder für den Adapter
        Dim MyCommandBuilder As New OleDb.OleDbCommandBuilder(MyAdapter)
        ' Dataset mit Adapter füllen
        MyAdapter.Update(DataSet, "Sheets")
        ' Datenverbindung schließen
        MyConnection.Close()
    End Sub

Meine Homepage: www.dartrax.de