pasar datos de un mshflexgrid a base de datos

[tox_xo]

hola
cree mi base de datos con access y lo que trato de hacer es que los datos que tengo en el msh flexgrid se me guarden en mi base de datos al dar clic en el botón guardar el código de ese botón es el siguiente:


Dim cont As String
With Data1.Recordset
cont = 1
While (cont < grid1.Rows)
.AddNew
!n_compra = Text1
!fecha = DTPicker1
!n_producto = grid1.TextMatrix(cont, 0)
!comprados = grid1.TextMatrix(cont, 4)
!n_proveedor = Text3
!precio_compra = grid1.TextMatrix(cont, 3)
cont = cont + 1
Wend
End With

Pero al correr el programa el botón no me guarda los datos ni me marca ningun error ayuda pro favor.
muchas gracias :)

[Kruzado]

cuando utilizas .addnew ó .edit, debes colocar al final de tu paso de variables un .update para que te guarde los registros nuevos ó las modificaciones, tambien es conveniente que puedas hacer ese codigo mediante sentencia sql, ejemplo : insert into tutabla (tucampo1,tucampo2) values(23,'hola') , entonces debe quedar algo como :

Dim cont As String
With Data1.Recordset
cont = 1
While (cont < grid1.Rows)
.AddNew
!n_compra = Text1
!fecha = DTPicker1
!n_producto = grid1.TextMatrix(cont, 0)
!comprados = grid1.TextMatrix(cont, 4)
!n_proveedor = Text3
!precio_compra = grid1.TextMatrix(cont, 3)
.Update
cont = cont + 1
Wend
End With

[tox_xo]

Muchas gracias quedo perfecto el código =)