Good day Cecil,

Shouldn't CONTROLSOURCE be defined like so?

    .grdTables.Column1.chkSelected.ControlSource = "Selected"
    .grdTables.Column2.Text1.ControlSource = "Table"

HTH,
Dennis

>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