>Hi Sir,
>
>This is what I have. I have added the THISFORM.grid1.SetFocus. It looks like the data would show up and disappear.
>
>

>IF llSuccess
>  IF RECCOUNT() > 0
>    INDEX ON crsLookup.MPNNUM_49 TAG MpnNum
>    SEEK m.lcPartNumber			
>			
>    THISFORM.grid1.RecordSource = "crsLookup"
>    THISFORM.grid1.column1.header1.Caption = "MFG Part Number"
>    THISFORM.grid1.column2.header1.Caption = "SAE Part Number"
>    THISFORM.grid1.column1.header1.BackColor = RGB(88,228,225)
>    THISFORM.grid1.column2.header1.BackColor = RGB(183,248,152)
>    THISFORM.grid1.column1.header1.FontBold = .T.
>    THISFORM.grid1.column2.header1.FontBold = .T.
>    THISFORM.grid1.column1.header1.FontSize = 10			
>    THISFORM.grid1.column2.header1.FontSize = 10
>    THISFORM.grid1.Column1.Width = 185
>    THISFORM.grid1.Column2.Width = 142
>    THISFORM.grid1.HeaderHeight = 20
>    THISFORM.grid1.Refresh
>    *THISFORM.Refresh
>    THISFORM.grid1.SetFocus
>    *THISFORM.txtPartNum.SetFocus			
>  ELSE
>    MessageBox("Part Number Not Found!", 64, "SAE-2K7")
>    THISFORM.txtPartNum.Value = ""
>    THISFORM.txtPartNum.SetFocus		
>  ENDIF	
>ELSE
>  MESSAGEBOX("SQL Query Failed!", 16, "SAE-2K7")
>ENDIF
>

You could also redefine column.controlsources.