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 :)