Editar msflexgrid con un formulario

[Sergio18]

Hola SalomonSab gracias por contestar, he estado investigando mas y me han dicho que es con un insert into, lo tengo echo asi:

Código vb:

Private Sub Command5_Click()
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
'Establecer sus propiedades
With rsTbl_Direccion
    .CursorLocation = adUseClient
    .Open "insert into tbl_direccion (Nombre,Apellidos,Direccion,Ciudad,Provincia,Telefono,CP) values('" & _
    Text1.Text & "','" & _
    Text4.Text & "','" & _
    Text5.Text & "','" & _
    Combo1.Text & "','" & _
    Combo2.Text & "','" & _
    Text2.Text & "','" & _
    Text6.Text & "')", 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
End Sub
 

Pero hay un problema, en modo ejecucion si me edita el felxgrid pero cuando salgo y vuelvo a entrar se me ha añadido una fila que es la que he editado y lo que iva a editar se queda igual que antes de editarlo

Saludos