Hola que tal, coloco unas lineas que tengo para cargar a un grid una tabla no definida
thisform.label1.Caption = 'Buscando la Información '
vBuscar = VAL(thisform.list1.Value)
cdCadena = 'SELECT * FROM ' + tTabla + ' where ' + vBuscar +;
' = ' + vDato + 'into cursor cTemp' &&crear la cadena para el select de busqueda
&cdCadena && ejecuta select completo
SELECT cTemp
Thisform.grid1.RecordSource = 'cTemp'
thisform.grid1.ReadOnly = .T.
thisform.grid1.deletemark = .F.
thisform.grid1.Refresh
thisform.label1.Caption = ""
Si tienes una tabla definida, no es necesario usar una cadena y colocarias la sentencia directamente por campos y nombres.
Espero te sirva
