Visual Basic - Eliminar registro/s SELECCIONADOS en msflexgrid de una base de datos access VB6.0

Usando Visual Basic 6.0, tengo un msflexgrid "vinculado" a una base de datos access, un botón para eliminar entradas y al parecer todo en orden... Sin embargo, al dar click al botón eliminar; borra el registro que esta en la posicion superior de todas, no la/las seleccionada/s. El código que uso en ese botón es el siguiente:

Private Sub del2_Click()
Dim d As Integer
Dim s As String
If list1.RowSel = 1 Then
MsgBox " No hay ninguna Entrada seleccionada para eliminar ", vbExclamation, ""
Exit Sub
End If
s = list1.TextMatrix(list1.RowSel, 5)
d = Val(MsgBox("Eliminar la Entrada/s " & s & " de la base de datos? NO HAY RETORNO", vbOKCancel, "Eliminar Entrada"))
If d = vbOK Then Data1.Recordset.Delete
If d = vbCancel Then Exit Sub
Data1.Refresh

End Sub

Agradecería Mucho Vuestra Ayuda...