pasar datos de un mshflexgrid a base de datos

[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