Private Sub bs_PositionChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles bs.PositionChanged
        If bs.Count > 0 Then
            drAktuellerDatensatz = CType(CType(bs.Current, DataRowView).Row, _
              myDataSet.tblObjektRow)
        End If
    End Sub