data.EOF ayuda urgente

[Zidane]

hola amigos y gracias desde ya!

Estoy programando cn VB 6.0, tengo un objeto ADODB.recordset llamado Data, y kiero controlar cuando se encuentra en el ultimo registro para que al intentar avanzar un registro, no de un error debido a q ya se encuentra en el ultimo. Supongo q se hace cn data.EOF, pero no funciona.

Private Sub btn_next_Click()
If data.EOF Then
btn_last.Enabled = False
Else
data.MoveNext
nombre.Caption = data!nombre_cliente
End If

End Sub

ME sale un error q dice q EOF o BOF es True o algo asi.
GRACIAS!!!!

[Mplus]

Private Sub btn_next_Click()
If data.EOF Then
btn_last.Enabled = False
Else
data.MoveNext ' si avanzas y el siguente es eof te dará error, debes hacer la comprobacion antes
nombre.Caption = data!nombre_cliente
End If

End Sub

[Zidane]

hola Mplus y gracias

Pero eso q m dices es lo mismo q hago no? si no es el final, entonces avanzo un registro.
No t he entendido bien.

[Zidane]

ejecutando paso a paso resulta q aun estando en el ultimo registro, no lo toma como el ultimo, es decir, q data.EOF es false

[Mplus]

claro, primero haz el movenext y luego comprueba q no es eof, no como lo hacias hasta ahora, q primero comprobabas q no estuvieras en el ultimo y luego hacias movenext