Visual Basic - NO ME HACE CASO EL IF!!!!!!

Hola
Como puedo condicionar una tabla para que no me marque error cuando llega al final pues la condisiono con un if pero no lo respeta sino que aun asi se va al else y me marca el error este es mi codigo
If registro.EOF Or registro.BOF Then
MsgBox "Se han terminado las preguntas", vbInformation, "Final"
Else
registro.MoveNext
pregunta.Caption = registro!pregunta
respuesta1.Caption = registro!opcion1
respuesta2.Caption = registro!opcion2
respuesta3.Caption = registro!opcion3
resp = registro!respuesta
End If
MUHAS GRACIAS POR SU ATENCION

Si estas trabajando con ADO y con Access o SQL, yo particularmente pongo:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
If not rs.eof then
pregunta.Caption = registro!pregunta
respuesta1.Caption = registro!opcion1
respuesta2.Caption = registro!opcion2
respuesta3.Caption = registro!opcion3
resp = registro!respuesta
else
msgbox.....
End If

Espero que te sriva, cualquier cosa vuelves a preguntar

Muchas gracias
Ya lo cambie como me dices y aun me marca el error cuando llego al ultimo, no se porque haga esto,como quiera muchas gracias!!!

Prueba haciendo la comprobación después de la llamada a MoveNext.

registro.MoveNext
If registro.EOF Then
MsgBox "Se han terminado las preguntas", vbInformation, "Final"
Else
pregunta.Caption = registro!pregunta
respuesta1.Caption = registro!opcion1
respuesta2.Caption = registro!opcion2
respuesta3.Caption = registro!opcion3
resp = registro!respuesta
End If