ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                   "Data Source=" & DBPfad
 
        myConn = New OleDb.OleDbConnection(ConnString)
 
        myConn.Open()
 
 
        myDA = New OleDb.OleDbDataAdapter("Select * from Name", myConn)
 
        myDA.Fill(myDS, "Kunde")
 
        myConn.Close()

lblKndNr.DataBindings.Add("Text", myDS.Tables("Kunde"), "Key")
        txtUsername.DataBindings.Add("Text", myDS.Tables("Kunde"), "Username")
        txtName.DataBindings.Add("Text", myDS.Tables("Kunde"), "Name")
        txtVorname.DataBindings.Add("Text", myDS.Tables("Kunde"), "Vorname")
        txtStrasse.DataBindings.Add("Text", myDS.Tables("Kunde"), "Strasse")
        txtPLZ.DataBindings.Add("Text", myDS.Tables("Kunde"), "PLZ")
        txtOrt.DataBindings.Add("Text", myDS.Tables("Kunde"), "Ort")
        txtEMail.DataBindings.Add("Text", myDS.Tables("Kunde"), "Email")
        txtTelefon.DataBindings.Add("Text", myDS.Tables("Kunde"), "Tel")
        chkRicardo.DataBindings.Add("checked", myDS.Tables("Kunde"), _
          "RicardoGesperrt")
 
 
        DataGrid1.DataSource = myDS.Tables("Kunde").DefaultView

Private Sub btnMoveNext_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnMoveNext.Click
        Me.BindingContext(myDS, "Kunde").Position += 1
    End Sub
 
    Private Sub btnEnde_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnEnde.Click
        Me.BindingContext(myDS, "Kunde").Position = Me.BindingContext(myDS, _
        "Kunde").Count - 1
 
    End Sub
 
    Private Sub btnAnfang_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnAnfang.Click
        Me.BindingContext(myDS, "Kunde").Position = 0
    End Sub
 
    Private Sub btnMovePrevious_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnMovePrevious.Click
        Me.BindingContext(myDS, "Kunde").Position -= 1

Gruss
Cyberclone

--