Estoy trabajando con SQL y VB6 el problema es el siguiente: cuando
trato de eliminar una fila de un datagrid, la selecciono y tico
eliminar, el problema es que al momento de eliminar, elimina todas las
filas que contengan el mismo valor que la seleccionada. Les dejo el
codigo que estoy utilizando para eliminar.

Private Sub Eliminar_Click()
f = MsgBox("Esta seguro de eliminar el registro", vbYesNo, "Mensaje")
If f = vbYes Then
With MiTabla.Recordset
On Error Resume Next
MiTabla.Recordset.Delete
MiTabla.Recordset.Update
MiTabla.Refresh
DataGridMiTabla.Refresh
End With
End If
End Sub

de
esta forma me elimina los datos del Datagrid y de la Base de Datos,
pero como anteriormente lo expuse, elimina todas las filas que
contengan los mismos datos que la seleccionada y yo solo necesito
eliminar una sola fila.

Espero y puedan ayudarme por favor, desde antemano Gracias.!!