Dim MyDataSet As DataSet
 
Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
    ' Neue Datenbankdateiinstanz
    Dim MyCat As ADOX.Catalog = New ADOX.Catalog
    ' Datenbankdatei erstellen
    MyCat.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
      Application.StartupPath & "\Datenbank.mdb; Jet OLEDB:Engine Type=5")
    ' Dataset füllen
    DataSetFill(MyDataSet, Application.StartupPath & "\Datenbank.mdb")
    ' Dataset Sheet-Tabelle hinzufügen
    MyDataset.Tables.Add("Sheets")
    ' Primaryschlüssel hinzufügen
    Dim MyPrimaryKeys(0) As DataColumn
    MyPrimaryKeys(0) = MyDataset.Tables("Sheets").Columns.Add("Schülername")
    MyDataset.Tables("Sheets").PrimaryKey = MyPrimaryKeys
 
    ' Irgendeine Datenbankoperation
 
    ' Neuen Datensatz im Dataset anlegen
    Dim MyRow As DataRow = MyDataset.Tables("Sheets").NewRow
    MyRow.Item("Schülername") = "Name"
    MyDataset.Tables("Sheets").Rows.Add(MyRow)
 
    ' Datenbank Update
    DataSetUpdate(MyDataset, Application.StartupPath & "\Datenbank.mdb")
End Sub
 
' Prozedur: Füllt ein Dataset mit Daten aus einer Datenbank
Public Sub DataSetFill(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)
    MyConnection.Open()
    ' Neue Instanz eines mit der Datenverbindung verbundenen Adapters
    Dim MyAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM Sheets", _
      MyConnection)
    ' Dataset mit Adapter füllen
    MyAdapter.Fill(Dataset)
    ' Datenverbindung schließen
    MyConnection.Close()
End Sub
 
' 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)
    MyConnection.Open()
    ' 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