Dim connString As String
    Private da As OleDb.OleDbDataAdapter
    Private ds As New DataSet
    Private dv As DataView
    Private cm As CurrencyManager
 
    ' Read DB
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
 
        IO.File.Copy("D:\Work Dev\VSNet Dev\Test\vertragsdb.mdb", _
          Application.StartupPath & "\db.mdb", True)
 
        connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Application.StartupPath & "\db.mdb"
 
        Dim conn As New OleDb.OleDbConnection(connString)
        Dim sql As String = "SELECT * FROM CValues"
 
        da = New OleDb.OleDbDataAdapter(sql, conn)
        Try
            da.Fill(ds, "CValues")
        Catch ex As System.Exception
            MsgBox("DB read failed: " + ex.ToString())
            Return
        End Try
        dv = ds.Tables("CValues").DefaultView
 
        ' Set default value for CheckBox column
        dv.Table.Columns("Control").DefaultValue = False
 
        Dim cb As New OleDb.OleDbCommandBuilder(da)
 
        cm = CType(BindingContext(dv), CurrencyManager)
 
        ' Set DataBindings
        TypeField.DataBindings.Add("Text", dv, "Type")
        ValueField.DataBindings.Add("Text", dv, "Value")
        ControlField.DataBindings.Add("Checked", dv, "Control")
 
    End Sub
 
    Private Sub AddButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AddButton.Click
        cm.AddNew()
    End Sub
 
    Private Sub UpButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles UpButton.Click
        cm.Position -= 1
    End Sub
 
    Private Sub DownButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DownButton.Click
        cm.Position += 1
    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