Visual Basic - Ayuda con el EOF

Private Sub Command2_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast

End Sub

Hola , favor me pueden decir que le falta a este codigo para que cuando mi base este vacia el EOF no se transforme el True o el actual registro se elimino"

If Adodc1.Recordset.Recordcount<>0 and Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast

Ojo el orden importa, primero el recordcount y después el eof