Private Sub Navigation(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
        Handles btnErster.Click, _
        btnVorheriger.Click, _
        btnNächster.Click, _
        btnLetzter.Click

Private Sub Navigation_btnErster(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnErster.Click
 Me.Navigation(sender.name)
End Sub
 
Private Sub Navigation_btnVorheriger(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnVorheriger.Click
 Me.Navigation(sender.name)
End Sub
 
Private Sub Navigation_btnNächster(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnNächster.Click
 Me.Navigation(sender.name)
End Sub
 
Private Sub Navigation_btnLetzter(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnLetzter.Click
 Me.Navigation(sender.name)
End Sub
 
Private Sub Navigation(ByVal strName As String)
 
         Select Case strName
            Case btnErster.Name
                bs.MoveFirst()
            Case btnVorheriger.Name
                bs.MovePrevious()
            Case btnNächster.Name
                bs.MoveNext()
            Case btnLetzter.Name
                bs.MoveLast()
        End Select
 
End Sub