Visual Basic - botones de anterior y último

Tengo problemas con el codigo de anterior y último, aquí les pongo el error

Error '3219' en tiempo de ejecucion:
la operacion no esta permitida en este contexto

el codigo es el siguiente

Select Case Index
'....................... Irse al primer registro ........................
Case 0:
rs2.MoveFirst
Call refrescar
'....................... Irse al registro anterior ........................
Case 1:


rs2.MovePrevious
If rs2.BOF Then
msgbox"Primer registro"
Else
call refrescar
End If

'............................. Irse al siguiente registro ........................
Case 2:
rs2.MoveNext

If rs2.EOF = True Then
MsgBox "Último registro", vbInformation, ""
Else
Call refrescar
End If
'............................... Irse al ultimo registro ..........................
Case 3:
rs2.MoveLast
If rs2.EOF = True Then
MsgBox "Ultimo registro ", vbInformation, ""
Else

Call refrescar
End If
End Select
End Sub

hola, en primer lugar cuando hace el movelast, estas parada en el ultimo registro, que no es el EOF sino que es el registro anterior asi que ahi tendrias que suprimir la linea "If rs2.EOF = True Then" y "else" , o sea quedaria asi:

Case 3:
rs2.MoveLast
Call refresco
MsgBox "Ultimo registro ", vbInformation, ""

y el codigo para anterior quedaria asi:

rs2.MovePrevious
If rs2.BOF Then
rs2.MoveNext
msgbox "Primer registro"
Else
call refrescar
End If

Recordá siempre que BOF es un lugar que esta antes del primer registor y que EOF es un lugar que esta despues del ultimo registro (BOF no es el primer registro, ni EOF es el ultimo registro)

espero te sirva
saludos