Private Sub Grid1_FilterChange(ByVal nCol As Long)
  ' autom. Suchen im DataGrid nach dem eingegebenen Suchbegriff
  With Grid1
    If Len(.FilterText) > 0 Then
      .FindFirst .Recordset.Fields(nCol - 1).Name & _
        " LIKE '" & .FilterText & "*'"
    End If
  End With
End Sub