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