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
 
        ' Create DB if does not exist
        If Not IO.File.Exists(db) Then
            create(connString)
        End If
 
        ' Fill DataSet
        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")
        DataGridView1.DataSource = bs
 
    End Sub
 
    ' Update DB
    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
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist