tery,

I should have some thing misssing some where, her what i did:

I creat "lClearedRecSource" property

Then we add the following:-

Thisform.LockScreen=.T.

With Thisform
If Not .lClearedRecSource
.grid1.RecordSource= “”
.lClearedRecSource = .T.
Endif
Endwith

Select amaster
Go Top

With Thisform.grid1
.RecordSource=[AMASTER]
.column1.ControlSource=[AMASTER.ACCTNAME]
.column2.ControlSource=[AMASTER.ACCTNO]
.column3.ControlSource=[AMASTER.BORNDATE]
.column4.ControlSource=[AMASTER.BALANCE]
Endwith


With Thisform
If .lClearedRecSource
.lClearedRecSource = .F.
Endif
Endwith

Thisform.LockScreen=.F.


Thanks tery