Dim MyDataSet As DataSet
Dim ConnectionString as String
Dim MyConnection As New OleDb.OleDbConnection 
Dim MyAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM Sheets", _
  MyConnection)
Dim MyCommandBuilder As New OleDb.OleDbCommandBuilder(MyAdapter)
 
 
Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
    ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    Application.StartupPath & "\Datenbank.mdb"
    ' Neue Datenbankdateiinstanz
    Dim MyCat As ADOX.Catalog = New ADOX.Catalog
    ' Datenbankdatei erstellen
    MyCat.Create(ConnectionString + ";Jet OLEDB:Engine Type=5" )
    MyConnection.ConnectionString = ConnectionString
 
    ' Tables Erstellen
    CreateTables()
    ' Dataset füllen
    DataSetFill(MyDataSet)
 
    ' 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)
End Sub
 
' Prozedur: Füllt ein Dataset mit Daten aus einer Datenbank
Public Sub DataSetFill(ByVal Dataset As DataSet)
    ' Dataset mit Adapter füllen
    Try ' Die Connection wird automatisch geöffnet und geschlossen.
        MyAdapter.Fill(Dataset)
    Catch ex As Exception
        System.Diagnostics.Debug.WriteLine( ex.Message )
    End Try
End Sub
 
' Prozedur: Speichert die Daten eines Dataset in einer Datenbank
Public Sub DataSetUpdate(ByVal DataSet As DataSet)
    ' Dataset mit Adapter füllen
    Try ' Die Connection wird automatisch geöffnet und geschlossen.
        MyAdapter.Update(DataSet, "Sheets")
    Catch ex As Exception
        System.Diagnostics.Debug.WriteLine( ex.Message )
    End Try
End Sub
 
Public Sub CreateTable()
    Dim CreateString as String = "Create Table Sheets ( SchülerID as INTEGER" & _
      "PRIMARY KEY, Schülername as VARCHAR(100));"
    Dim MyCommand as New OleDbCommand( CreateString, MyConnection )
    Try
        MyConnection.Open();
        MyCommend.ExecoteNonQuery()
    Catch ex As Exception
        System.Diagnostics.Debug.WriteLine( ex.Message )
    Finally
       MyConnection.Close()
    End Try
End Sub