Ok Mark,
This is the code that I have it puts the columns in right, but not the values. I don't get anything in the textboxes:

THISFORM.LOCKSCREEN = .T.
WITH THIS.PARENT.RFI_GRID1
	.COLUMNCOUNT = FCOUNT()
	.GRIDLINES = 1
	.GRIDLINEWIDTH = 1
	.GRIDLINECOLOR = RGB(255,255,255)
	.SCROLLBARS = 3
	FOR A = 1 TO .COLUMNCOUNT
		mycolBackColor      = '.COLUMN'+ALLTRIM(STR(A))+'.BACKCOLOR = RGB(192,192,192) '
		&MyColBackColor
		myColForeColor      = '.COLUMN'+ALLTRIM(STR(A))+'.FORECOLOR = RGB(0,0,0) '
		&MyColForeColor     
		MyColWidth	    = '.COLUMN'+ALLTRIM(STR(A))+'.WIDTH = 75 '
		&MyColWidth
		MyColHeadBackColor  = '.COLUMN'+ALLTRIM(STR(A))+'.HEADER1.BACKCOLOR = RGB(0,0,0) '
		&MyColHeadBackColor 
		MyColHeadFB	    = '.COLUMN'+ALLTRIM(STR(A))+'.HEADER1.FONTBOLD = .T. '
		&MyColHeadFB
		MyColHeadFc	    = '.COLUMN'+ALLTRIM(STR(A))+'.HEADER1.FORECOLOR = RGB(255,255,255) '
		&MyColHeadFc
		MyColHeadAlignment  = '.COLUMN'+ALLTRIM(STR(A))+'.HEADER1.ALIGNMENT = 0 '	
		&MyColHeadAlignment
		myColHeadCaption    = '.COLUMN'+ALLTRIM(STR(A))+'.HEADER1.CAPTION = FIELD(A) '
		&MyColHeadCaption	
	ENDFOR
	LOCAL lcSource,laColumns[1],B
	lcSource = .RECORDSOURCE
	DIMENSION laColumns[.COLUMNCOUNT]
	FOR B = 1 TO .COLUMNCOUNT
		laColumns[B] = .COLUMNS[B].CONTROLSOURCE
	ENDFOR
	.RECORDSOURCE = ''
	&& GET NEW TABLE STUFF
	.RECORDSOURCE = lcSource
	FOR B = 1 TO .COLUMNCOUNT
		.COLUMNS[B].CONTROLSOURCE = laColumns[B]		
	ENDFOR	
	.REFRESH()		
ENDWITH
THISFORM.LOCKSCREEN = .F.

How can I get the values in? Do I have to go to the textbox level?

Thanks in advance