Private Sub Count()
        Dim Records, Current As Integer
        Records = Me.BindingContext(DsInstructors1, "Instructors").Count
 ' Dein Namen kommen da natürlich rein
        Current = Me.BindingContext(DsInstructors1, "Instructors").Position + 1
        ' Dein Namen kommen da natürlich rein
       lblCount.Text = "Datensatz " & Current.ToString & " von " & _
         Records.ToString
End Sub

Mit freundlichen Gr?ssen:
Christian Bachmannn