Bonjour tout le monde

je réalise un projet sur vb6 avec une base de données MySQL je me suis bloqué pour les boutons précédent et le dernier enregistrement.
j'ai déja utilisé ce code dans un projet vb6 avec access et ça marché très bien mais là je ne sais pas pourquoi le bouton précédent ne marche pas et le bouton dernier_enregistrement il dépasse la fin et il n'affiche rien

voilà le code que j'ai fais

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub cmdprecedent_Click()
vider
On Error Resume Next
    rs.MovePrevious
If rs.BOF Then
    rs.MoveFirst
End If
affichage
End Sub
 
 
Private Sub cmddernier_Click()
vider
On Error Resume Next
rs.MoveLast
affichage
End Sub