With frmMain.sevgrdDaten
  If .Row > 0 Then
    oRs.Open "SELECT * FROM Tabelle WHERE S_ID=" & .Recordset.Fields(0).Value, _
      oConn, adOpenDynamic, adLockOptimistic
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de