Yo uso la posibilidad de la DBGrid de seleccionar varios registros para que aquellos que están seleccionados sean borrados.
Acá te mando la programación del evento de la DBGRid y también la función que uso para borrar todos los registros seleccionados

Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As
Integer)
Dim boo As Variant
Dim i
    If lGridaCongelada Then Exit Sub
    If LastCol > -1 Then
        boo = DBGrid1.Bookmark
        For i = 0 To DBGrid1.SelBookmarks.Count - 1
            If boo = DBGrid1.SelBookmarks(i) Then
                DBGrid1.SelBookmarks.Remove i
                Exit Sub
            End If
        Next
        DBGrid1.SelBookmarks.Add boo
    End If
End Sub

Sub BorrarSeleccionados()
Dim i%
    If DBGrid1.SelBookmarks.Count > 0 Then
        lGridaCongelada = True
        For i = 0 To DBGrid1.SelBookmarks.Count - 1
            dataLote.Recordset.Bookmark = DBGrid1.SelBookmarks(i)
            dataLote.Recordset.Delete
        Next
        dataLote.Refresh
        DBGrid1.Refresh
        dataLote.Recordset.MoveFirst
        lGridaCongelada = False
    End If
End Sub

Espero te sirva.


--
María Andrea Vignau