Dim ZeigerPos As Integer
 
        Me.Tab_AuftragTableAdapter.Fill(Me.TESTDataSet.Tab_Auftrag)
'HandelDB ist eine Klasse von mir für DB Abfragen
        Dim Abfr As New HandleDB.Abfrage("SELECT AuftragsNr FROM Tab_Auftrag", _
          HandleDB.Abfrage.Abfrageart.Auswahlabfrage)
        For i As Integer = 0 To Abfr.Dcount - 1
            If Abfr.Datenausgabe(0, i) = AktAuftrag Then 'AktAuftrag ist Public 
            ' und wird gesetzt bevor sich das Form öffnet
                ZeigerPos = i
                Exit For
            End If
 
        Next
 
        Me.Tab_AuftragBindingSource.Position = ZeigerPos