Ikke fejl ved tom post i database - Keytaster

Hej Eksperter
Jeg vil gerne bruge "key-taster" til at bladre frem og tilbage i mit prg. (mellem database-poster)
Jeg har prøvet med følgende kode, men når jeg skal bruge MovePrevious virker det ikke efter at jeg har haft min msgbox fremme. Den kører godt nok tilbage til forrige post når jeg klikker ok. Men herefter fungerer det ikke ( frem og tilbage ).

Følgende kode er brugt:
Private Sub form_keydown(keycode As Integer, shift As Integer)
Select Case keycode
Case vbKeyPageDown
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "Ikke flere poster - Smider dig tilbage til sidste post"
Adodc1.Recordset.MovePrevious
'Else
Select Case keycode
Case vbKeyPageUp
Adodc1.Recordset.MovePrevious
Case vbKeyEscape
Unload Me
End Select
End If
End Select
End Sub

Det er en accessdatabase jeg har koblet sammen med mit prg.
Håber en venlig sjæl kan hjælpe :-)