This works. But unfortunately the grid loses some information
like CurrentControl.

Nadya suggested just changing the height of the grid to one line.
Searching the record and resizing the grid to nomal height. Works
perfect.

Andreas


>You can:

>
>local lcSource
>lcSource = This.RecordSource  && This --> Grid
>This.RecordSource = ""
>* code to move record pointer here
>This.RecordSource = lcSource