Visual Basic - Guardar registros en data grid!!! Urgente!!!!

Hola amigos:

Espero que ahora me puedan ayudar ya que esto es urgente. Necesito agregar y guardar los registros a través de un dataGrid. Utilizo un botón para realizar este proceso y me aparece el siguiente mensaje de error:
"No se encontró el elemento en la colección que corresponde con el nombre o el ordinal perdido" ERROR "3265"

Este es el código. Utilizo control ADO.

Private Sub Cmd_agregae_Click()
On Error Resume Next
Adodc1.Recordset.AddNew
DataGrid1.Col = 0
Adodc1.Recordset!codigo = DataGrid1.Text
DataGrid1.Col = 1
Adodc1.Recordset!fecha = DataGrid1.Text
DataGrid1.Col = 2
Adodc1.Recordset!Nombre = DataGrid1.Text
DataGrid1.Col = 3
Adodc1.Recordset!materia = DataGrid1.Text
DataGrid1.Col = 4
Adodc1.Recordset!orden = DataGrid1.Text
Adodc1.Recordset.Update
Adodc1.Refresh
' Adodc1.Recordset.MoveLast
End Sub

Si alguien me puede ayudar os agradeceré sinceramente

para dar de alta a la BD yo utilizo en vez de recorset un command
set nombrecommand = new adodb.command

Private Sub Cmd_agregae_Click()
nombrecommand.commandtext = "insert into nombretabla (campo1,campo2,etc)
values (valor1,valor2,etc)"
nombrecmmand.execute

Prueba con este
aunque tendras que pasar los valores del grid a variables

Gracias amigo. Pero de la forma en que me indicas no me resulta. ¿Alguien me puede indicar que error tengo en el código, o que estoy haciendo mal? O de lo contrario darme algún ejemplo?

Gracias

Ya intentaste con .Fields ?

Private Sub Cmd_agregae_Click()
On Error Resume Next
Adodc1.Recordset.AddNew
DataGrid1.Col = 0
Adodc1.Recordset.fields("codigo") = DataGrid1.Text
DataGrid1.Col = 1
Adodc1.Recordset.fields("fecha") = DataGrid1.Text

O exactamente cuando te marca el error ? Nunca me habia salido ese error.. especialmente porque los Adodc los utilizo con cadenas de SQL como Insert y eso..

mira me parece que tendrias que cambiar la instruccion
Adodc1.Recordset.MoveLast
por
Adodc1.Recordset.Movefirst
cuando haces el Update, ya estas parado en el ultimo registro, por default y vos le pedis que se mueva al ultimo y me parece que es ahi donde se arma el kilombo, porque busca moverse a ese ultimo siendo que esta en el ultimo
se me ocurre que puede ser eso, proba
suerte

Si se fijan estoy omitiendo la asignación a la celda 0, debido a que esta hace referencia a un campo numerico de autoincremento en la base de datos.

A continuación coloco el código que viene detrás del botón:

Private Sub Cmd_agregae_Click()
On Error Resume Next
Adodc1.Recordset.AddNew
' DataGrid1.Col = 0
' Adodc1.Recordset.Fields("Num_Cor") = DataGrid1.Text
DataGrid1.Col = 1
Adodc1.Recordset.Fields("Fec_Emi") = DataGrid1.Text
DataGrid1.Col = 2
Adodc1.Recordset.Fields("destinatario") = DataGrid1.Text
DataGrid1.Col = 1
Adodc1.Recordset.Fields("materia") = DataGrid1.Text
DataGrid1.Col = 1
Adodc1.Recordset.Fields("num_ord") = DataGrid1.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
End Sub

El mensaje de error que me genera es el siguiente:

La operación en varios pasos generó errores, Compruebe los valores de estado.

Luego la depuración del error me envía a este campo:

Adodc1.Recordset.Fields("Fec_Emi") = DataGrid1.Text

Tienen idea de que pueda ser?? Los campos que describo en el ejemplo están todos de forma identica en la base de datos....

Gracias amigos...

utiliza un mshflexgrid y adios problema, ya nadie utiliza datagrid, actualizate!!

Hola Edu:

Utilizo el mismo codigo verdad? Solo reemplazo el DataGrid1 por MSHFlexGrid1. Bueno si es así, te comento que me invía exactamente el mismo error.

Acá va el código:

Private Sub Cmd_agregae_Click()
On Error Resume Next
Adodc1.Recordset.AddNew
MSHFlexGrid1.Col = 0
Adodc1.Recordset.Fields("Num_Cor") = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 1
Adodc1.Recordset.Fields("Fec_Emi") = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 2
Adodc1.Recordset.Fields("destinatario") = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 1
Adodc1.Recordset.Fields("materia") = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 1
Adodc1.Recordset.Fields("num_ord") = MSHFlexGrid1.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
End Sub

A alguien se le ocurre que puedea ser?

De antemano gracias

Por favor no se olviden de mi consulta he intentado de muchas formas y no me resulta guardar los datos... Alguna nueva sugerencia amigos?

Disculpen que distraiga su atención gracias....

cual es tu solucion leo? mald.ito vago no tienes nada que hacer.. fijate como esta tu mama o tu papa, quizá ya les dio un ataque o algo, anda haz algo por la vida, maldito vago!

cual es tu solucion leo? mald.ito vago no tienes nada que hacer.. fijate como esta tu mama o tu papa, quizá ya les dio un ataque o algo, anda haz algo por la vida, mal.dito vag.o!