Public Class Steuerelemente_o_Prog
    Dim oCM As CurrencyManager
    Private Sub Steuerelemente_o_Prog_Load(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles MyBase.Load
        OleDbConnection1.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Glob_DB_Pfad
        OleDbDataAdapter1.Fill(Me.DataSet21)
 
        oCM = BindingContext(Me.DataSet21, "Kunden")
 
        AddHandler oCM.PositionChanged, AddressOf oCM_PositionChanged
        Call Zeige_Position()
 
    End Sub
 
 
    Sub Zeige_Position()
        Me.lblDatensatz.Text = "Datensatz " & oCM.Position.ToString + 1 & " von" & _
          "" & oCM.Count.ToString
    End Sub
 
    Sub oCM_PositionChanged(ByVal sender As Object, ByVal e As EventArgs)
        Call Zeige_Position()
    End Sub
 
    Private Sub cmdBeenden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdBeenden.Click
        Me.Close()
    End Sub
 
    Private Sub cmdErster_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdErster.Click
        oCM.Position = 0
    End Sub
 
    Private Sub cmdZurueck_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdZurueck.Click
        oCM.Position -= 1
    End Sub
 
    Private Sub cmdVor_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdVor.Click
        oCM.Position += 1
    End Sub
 
    Private Sub cmdLetzter_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdLetzter.Click
        oCM.Position = oCM.Count - 1
    End Sub
End Class