Problema al cargar datos de msflexgrid a la base de datos

[coco_wey]

Hola, tengo un pekeñito problema.

es para imprimir facturas con DataReport sin el dataenviroment,

Primero guardo los datos en otra tabla para despues imprimirla con datareport, pero me grava todos los datos menos el de "Descripcion" me sale un 0.

y los otros campos si me los grava como codigo, cantidad, precio, nombre, apellido etc.... no c por k me sale un 0 en vez de el nombre del producto guardado,

y ademas cuando agrego varios productos ocea,, varias lineas en el msflexgrid me grava los datos en la tabla en varias filas y kiero q lo guarde en una sola fila de la tabla. paraq imprimir la factura...

aki dejo el code

para guardar los datos del flexgrid en la BD.
===============================
On Local Error Resume Next
Dim I As Integer
For I = 1 To Me.MSFlexGrid2.Rows - 1
If Me.MSFlexGrid2.TextMatrix(I, 1) = "" Then
Else
Dim db As Connection
Dim adoPrimaryRS As Recordset
Set db = New Connection
Set adoPrimaryRS = New Recordset
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "db1.mdb "
adoPrimaryRS.Open "Select * From TablaGuardarFactura", db, adOpenStatic, adLockOptimistic
adoPrimaryRS.AddNew

adoPrimaryRS!Nombre = txtNombre
adoPrimaryRS!Apellido = txtApellido

adoPrimaryRS!ID = lblID
adoPrimaryRS!C_Fecha = Fecha
adoPrimaryRS!C_Hora = Hora

adoPrimaryRS!Codigo = Val(Me.MSFlexGrid2.TextMatrix(I, 1))
adoPrimaryRS!Cantidad = Val(Me.MSFlexGrid2.TextMatrix(I, 2))
adoPrimaryRS!Descripcion = Val(Me.MSFlexGrid2.TextMatrix(I, 3))
adoPrimaryRS!Precio = Val(Me.MSFlexGrid2.TextMatrix(I, 4))

adoPrimaryRS!C_Doctor = cboDoctor
adoPrimaryRS!C_Auxiliar = cboAuxiliar

adoPrimaryRS!C_Total_Gral = TxtTotal

'adoPrimaryRS!Fecha = Date
'adoPrimaryRS!Hora = Time
adoPrimaryRS.Update
End If
Next I
If Err <> 0 Then
MsgBox "No se han podido guardar todos los datos por el siguiente error " & Err, vbInformation, "Error"
Exit Sub
End If



para hacer el reporte (Imprimir factura)
===========================
On Error Resume Next

Dim db As Connection
Dim adoPrimaryRS As Recordset
Set db = New Connection
Set adoPrimaryRS = New Recordset

db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "db1.mdb "
adoPrimaryRS.Open "Select * From TablaGuardarFactura", cnn, adOpenStatic, adLockOptimistic

If adoPrimaryRS.RecordCount > 0 Then
Set DataFactura.DataSource = adoPrimaryRS
With DataFactura
Set MSFlexGrid2.DataSource = adoPrimaryRS
DataFactura.Show
End With
Else
MsgBox "No hay Registro para imprimir ", vbInformation
End If

Gracias....
Salu2...