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