Public Sub jumpToDatensatz(ByVal sID As String)
 
        'markiere die Zeile, in der Spalte 1 = sID
        'scrolle zur markierten Zeile
 
    End Sub

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!