Dim nRow As Long
Dim i As Long
 
With Grid1
  For i = 1 To .Cols
    nRow = .FindFirst(.Recordset.Fields(i-1).Name & " = 'suchtext'") 
    If nRow > 0 Then Exit For
  Next i
 
  If nRow > 0 Then
    .Row = nRow
    MsgBox "Gefunden in Spalte & " CStr(i)
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de