editar y guardar msflexgrid

[william_085]

lo hise asi pero no me guarda nada.

db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & "C:\PEDIDOS\pedidos\Imprimir\pedidos\sucursal. mdb" & ";Persist Security Info=False"

Dim j As Integer
Dim i As Integer

Do While j < MSHFlexGrid1.Rows
If MSHFlexGrid1.TextMatrix(x, y) <> "" Or MSHFlexGrid1.TextMatrix(x, y) <> "" Or MSHFlexGrid1.TextMatrix(x, y) <> "" Then

rs.Open "select clave,sucursal,pedido,existencia,vuelta1,vuelta2,v uelta3,fecha,total from pedidos", cnn, adOpenStatic, adLockOptimistic

rs.AddNew

'rs!clave = Adodc1.Recordset("clav_art")
rs!sucursal = Label1
rs!pedido = MSHFlexGrid1.TextMatrix(j, 1)
'rs!existencia = MSHFlexGrid1.TextMatrix(j, 2)
rs!vuelta1 = MSHFlexGrid1.TextMatrix(j, 3)
rs!vuelta2 = MSHFlexGrid1.TextMatrix(j, 4)
rs!vuelta3 = MSHFlexGrid1.TextMatrix(j, 5)
rs!fecha = Date


rs.Update
End If
j = j + 1

Loop

que pasara