Imports ADODB.DataTypeEnum
 
Public Class Form1
 
    Dim db As String = "C:\test.mdb"
    Dim da As OleDb.OleDbDataAdapter
    Dim ds As New DataSet
    Dim bs As Bindingsource
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & db
 
        ' Neue Datenbank erstellen wenn nicht vorhanden.
        If Not IO.File.Exists(db) Then
            create(connString)
        End If
 
        ' DataSet füllen (Vielleicht geht es auch anders????
        Dim conn As New OleDb.OleDbConnection(connString)
        Try
            da = New OleDb.OleDbDataAdapter("Select * From DataTable", conn)
            Dim cb As New OleDb.OleDbCommandBuilder(da)
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
        da.Fill(ds, "DataTable")
        bs = New BindingSource(ds, "DataTable")
 
    End Sub
 
    ' Update  der DB per Schaltfläche
    Private Sub DoUpdate_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DoUpdate.Click
        da.Update(ds, "DataTable")
    End Sub
 
    ' Create the DB and table
    Private Sub create(ByVal connstring As String)
        Dim cat As New ADOX.Catalog
 
        cat.Create(connString)
 
        Dim table As New ADOX.Table
        Dim index As New ADOX.Index

        With table
            .Name = "DataTable"
            .ParentCatalog = cat
 
            .Columns.Append("ID", adInteger)
            .Columns("ID").Properties("Description").Value = "Key field" '
 
            .Columns.Append("Data", adWChar, 60)
            With .Columns("Data")
                .Properties("Description").Value = "Data field"
                .Properties("Jet OLEDB:Allow Zero Length").Value = True
                .Properties("Nullable").Value = True
            End With
        End With
 
        cat.Tables.Append(table)
 
        With index
            .Name = "PrimaryKey"
            .Columns.Append("ID")
            .PrimaryKey = True
            .Unique = True
        End With
        table.Indexes.Append(index)
 
    End Sub