Visual Basic - Grabar los datos del rocordset

Hola:
LLeno un datagrid con un recordset definido en un modulo de clase de la sgte.manera:

(General) (Declaraciones)
Private objDataSource As Trabajadores 'trabajadores es el modulo de clase donde esta el recordset

Private Sub cmdcargar_Click()
'Creo un nuevo objeto NamesData
Set objDataSource = New Trabajadores

' Enlazo DataGrid al nuevo datNames de DataSource
Set DataGrid1.DataSource = objDataSource
End If
End Sub

Mi duda es: q datos debo grabar en una tabla de access, los q estan en el datagrid o los q contiene el recordset? como ahorro recursos?
Y como lo hago dependiendo de la respuesta.

Gracias

Los datos que están en el DataGrid son los mismos que los del Recordset.
Para exportarlos a Excel es mas sencillo (al menos para mí) a través del Recordset.
Do While Not rs.EOF
For j = 1 To NumCampos + 1
objXL.cells(i + 1, j).Value = rs.Fields(j - 1)
Next
i = i + 1
rs.MoveNext
Loop
Saludos

Como sería para enviarlos a una tabla de access y solo se puede utilizar el do while

No entiendo la pregunta. ¿Puedes ser más explícito?
Saludos

Hola:
Necesito grabar los datos q contiene el recordset a una tabla de access, como prueba yo he digitado el sgte, código:

msgef = "insert into recepmayores(componer)"
msgef = msgef + "values('" + Trim(objDataSource.rscomponers.Fields(j)) + "')"
cn.Execute msgef

Y normal lo graba ese dato, pero el recordset tiene 6 .fields; ahora como quiero probar con el sgte, .fields es decir:

msgef = "insert into recepmayores(componer,local)"
msgef = msgef + "values('" + Trim(objDataSource.rscomponers.Fields(j)) + "','" + Trim(objDataSource.rscomponers.Fields(j + 1)) + "')"
cn.Execute msgef

Sale mensaje "error de sinaxis en el insert into"

Es por eso q queiro saber como grabar los datos del recordset a la tabla access.

Gracias

Bueno colega, yo alguna vez me pregunte si es posible pasar toda la informacion contenida en un recorset a una base de datos sin necesidad de un ciclo o bucle, es decir un Do While o un For y la verdad que no me he puesto a buscar o investigar y tu pregunta me ha incitado a curiosiar de nuevo, en fin...
la respuesta a tu pregunta es esta:

''esto es lo que tu tienes''''''''''''''''
msgef = "insert into recepmayores(componer)"
msgef = msgef + "values('" + Trim(objDataSource.rscomponers.Fields(j)) + "')"
cn.Execute msgef

Y normal lo graba ese dato, pero el recordset tiene 6 .fields; ahora como quiero probar con el sgte, .fields es decir:

msgef = "insert into recepmayores(componer,local)"
msgef = msgef + "values('" + Trim(objDataSource.rscomponers.Fields(j)) + "','" + Trim(objDataSource.rscomponers.Fields(j + 1)) + "')"
cn.Execute msgef
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''Esto es lo que te propongo''''''''''''''''''''''''''''''''''''
msgef = "insert into recepmayores(componer,local)"
for x=0 to objDataSource.rscomponers.RecordCount
msgef = msgef + "values('" + Trim(objDataSource.rscomponers.Fields(j)) + "','" + Trim(objDataSource.rscomponers.Fields(j + 1)) + "')"
cn.Execute msgef
next x

Pdta: aunque la verdad no es muy recomendable utilizar este metodo ya que se recargaria la memoria del computador.
Si tienes datos en una grilla pues tomalos de ahi por medio de una Do While o un For como mas prefieras, pero igual te recomiendo que utilices otro metodo de guardado, yo antes lo agregaba datos a una base de datos de esa forma como lo haces y cuando terminaba de guardar el computador por alguna razon se colocaba un poco lento. Cuidate colega y espero que esto te sirva
Suerte