If fIsFormLoaded("frmMain") Then
        If Not frmMain.sevgrdDaten.BOF = True And Not _
            frmMain.sevgrdDaten.EOF = True Then
            nSearch = frmMain.sevgrdDaten.Recordset.Fields(0).Value
        End If
        If Not oRS.BOF = True Then
            oRS.MoveFirst
            oRS.Find "S_ID = " & nSearch, , adSearchForward, 1
        End If
    End If