Editar msflexgrid con un formulario

[Sergio18]

Hola, quiero editar un msflexgrid con un formulario. Lo que e echo a sido cuando de un click en una de la filas del msflexgrid y este se añade al formulario
aqui codigo:

Código vb:

Form1.Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
Form1.Text4.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
Form1.Text5.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3)
Form1.Combo1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4)
Form1.Combo2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5)
Form1.Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)
Form1.Text6.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7)
 

Me deja editar pero a la hora de guardar no se me guarda, esto es lo que llevo echo:

Código vb:

Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
Set rsTbl_Direccion = New Recordset
With rsTbl_Direccion
    .CursorLocation = adUseClient
    .Open "select * from tbl_direccion", cnPrueba, adOpenDynamic, adLockOptimistic
End With
With rsTbl_Direccion
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = Form1.Text1.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = Form1.Text4.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) = Form1.Text5.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4) = Form1.Combo1.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5) = Form1.Combo2.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6) = Form1.Text2.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7) = Form1.Text6.Text
End With
 

Ayuda y Saludos