Problème de data grid, en effet je ne comprend pas, en effet

En fait, je vais chercher dans une bdd des données qui remplissent un datagrid et lors de la suppression d'un élément, j'ai çà qui s'affiche :

Ttitre de la box : "Microsoft data grid"
Contenu :"Le descipteur de ligne faisait référence à une ligne supprimée ou à une ligne marquée comme devant être supprimée"

Lors de la suppresion j'effectue cela :
Private Sub Supprimer_Click()
Annuler.Enabled = True

If (Rst.EOF = True) Then
GoTo fin
End If

  If MsgBox("Supprimer l'élément?", vbQuestion + vbYesNo + vbDefaultButton2, "Validation") <> vbYes Then
     Exit Sub
  End If

  With Rst
    .Delete
    .MoveNext
  End With

  Exit Sub
 
fin:

End Sub

Où rst est déclaré comme suit : Dim Rst As New ADODB.Recordset
La ligne est cependant bien supprimée, j'ai a peu prés tout essayé, si quelqu'un a déjà eu le même soucis merci de m'aider.
L'erreur n'apparait pas lorsque je sellectionne la ligne entière avec la flèche à gauche.

Cordialement

En effet permettez moi d'être con, merci

Il suffit de rajouter :

Private Sub DataGrid1_BeforeDelete(Cancel As Integer)
DataGrid1.Row = DataGrid1.Row + 1
End Sub

voilà, je fais les questions et les réponses, trop fort