Acabo de terminar el de borrar pero me falta el de actualizar, que alguien me ayude que me estoy estresando
Código vb:
Ver original'Pregunta
If MsgBox("¿Está seguro de que desea eliminar el registro?", vbQuestion + vbYesNo, Me.Caption) = vbNo Then Exit Sub
'Se elimina de la base de datos.
Set cnPrueba = New ADODB.Connection
cnPrueba.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prueba.mdb;Persist Security Info=False"
cnPrueba.Open
cnPrueba.Execute "delete from tbl_direccion where Id = " & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
cnPrueba.Close
Set cnPrueba = Nothing
'Se elimina el registro del msflexgrid
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)