Visual Basic - Modicar datos mediante un FlexGrid

He colocado un control FlexGrid en mi formulario. Tambien he colocado tres CommandButon. El Command1 es para AGREGAR, el 2 es para ELIMINAR y el 3 es para ACTUALIZAR.

¿Como hago para que cuando seleccione un registro en el FlexGrid se mueva el registro en la BD tambien?. De tal forma que cuando yo seleccione un registro en el FlexGrid y le de a ELIMINAR con el siguiente código elimine el registro:

If MsgBox("¿Desea eliminar el elemento seleccionado?", vbYesNo, "Atención") = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If

Lo que pasa es que cuando selecciono un registro en la BD y le doy a eliminar, siempre me elimina el primero de la lista. Gracias !

NOTA: Uso el DATA CONTROL convencional. Nada de SQL.

ejemplo de Muestra para guardar y/o Modificar, Lo tengo con Edición de Texto en el Flex Grid

Sub Guardar_Click()
Dim registro As Integer
Dim linea As Integer
On Error Resume Next
Set GenIsap = base.OpenRecordset("select * from GenIsapre")
For linea = 1 To fg2.Rows - 1
registro = Val(fg2.TextMatrix(linea, 1))
strbusca = "idisap =" & registro
GenIsap.FindFirst strbusca
If GenIsap.NoMatch Then
GenIsap.AddNew
GenIsap!idisap = registro
GenIsap!noisap = fg2.TextMatrix(linea, 2)
If fg2.TextMatrix(linea, 2) = "" Then GoTo siguiente
GenIsap!poisap = fg2.TextMatrix(linea, 3)
GenIsap.Update
Else:
GenIsap.Edit
GenIsap!idisap = registro
GenIsap!noisap = fg2.TextMatrix(linea, 2)
GenIsap!poisap = fg2.TextMatrix(linea, 3)
GenIsap.Update
End If
siguiente:
Next linea
MsgBox "Proceso terminado exitosamente", vbInformation, "Grabado"
GenIsap.Close
End Sub

Private Sub Eliminar_Click()
'borra un determinado registro
Dim d As Integer
Set GenIsap = base.OpenRecordset("select * from Genisapre")
d = Val(fg2.TextMatrix(fg2.Row, 1))
strbusca = "idisap =" & d
GenIsap.FindFirst strbusca
GenIsap.Delete
GenIsap.Close
Call Form_Load
End Sub