>Tried that, Cetin, bot no luck yet...
>
>Steve

I would insist that you should check relations and indexes. ie:

Public oForm
oForm = Createobject("myForm")
oForm.Show

Define Class myForm As Form
  DataSession = 2
  Height = 400
  Width = 600
  Add Object myGrid As Grid With ;
    Top=5,Left=5,Height=390,Width=590,RecordSource="customer",ColumnCount=5

  Procedure Load
    Use (_samples+"data\customer") In 0
    Use (_samples+"data\orders") In 0 Order Tag cust_id
    Select customer
    Set Relation To cust_id Into orders
    *    Set Skip to orders
    Locate For Empty(orders.order_id) && show one initially
  Endproc

  Procedure Init
    With This.myGrid
      .Columns(3).ControlSource = "orders.cust_id"
      .Columns(4).ControlSource = "orders.order_id"
      .Columns(5).ControlSource = "orders.order_date"
    Endwith
  Endproc
Enddefine

Cetin