BARBARA,

YOUR SUGGESTION DID WORK, BUT IT DIDN'T AFTER I HAD MADE SOME FEW CHANGES WHICH BOTCHED IT. THANKS!!!

Local lcModule
lcModule = LEFT(This.Value,2)

WITH ThisForm
IF NOT EMPTY(lcModule)
SELECT ;
.F. AS Selected, ;
Table ;
FROM SysMTbls ;
WHERE SysMTbls.ModID = lcModule ;
INTO CURSOR tmpTables

.grdTables.RecordSource = "tmpTables"
.grdTables.ColumnCount = 2
.grdTables.Column1.Width = 75
.grdTables.Column1.Header1.Caption = "Select"
.grdTables.Column1.AddObject("chkSelected", "cc_chkBox")
.grdTables.Column1.chkSelected.Visible = .T.
.grdTables.Column1.CurrentControl = "chkSelected"
.grdTables.Column1.Sparse = .F. && Make the check Box show up in all rows.
.grdTables.Column2.Header1.Caption = "Table Name"
.grdTables.Column2.Width = 120
.Refresh()
ENDIF
ENDWITH