Visual Basic - explorar en base de datos

Pues tengo un formulario para explorar una base de datos.
Tiene 4 labels de nombre, codigo, direccion y telefono y 4 textbox para q salgan los resultados; tambien tengo 4 commandbutton: Inicio, Atras, Siguiente y Fin.
El formulario esta ligada a una base de datos
Y tiene este codigo cada commandbutton

Inicio:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MoveFirst
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If

Siguiente:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MoveNext
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If

Atras:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MovePrevious
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If

Fin:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MoveLast
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If


Y me explora muy bien los datos

Mi problema es q por decir, si estoy en el primer dato de la base de datos y le doy para atras me sale un error, y pues como no hay datos atras del primero quiero q me salga un msgbox de q no se encontraron datos.
y al parecer me codigo ELSE esta mal porque no me sale ese msjbox q quiero
¿Como le hago si alguien me puede ayudar?
Gracias

TOCAME LOS GUEVOS LADILLA PEGAJOSA.

ESA PAGINA WEB QUE PONEIS, TIENE MAS GUSANOS QUE LADILLAS UN ZORRO.

Joder como te tratan aquí.
Si lo llego a saber, no pongo nada. Buen finde!

Espero que estés súper bien!!!!

Hasta luego lucas!!!!!!!!!!!

http://ladillitasoft.blogspot.com/

Sólo le tienes que poner las siguientes condiciones

En Inicio y Atras:
IF Data1.Recordset <> BOF then

En Siguiente y Fin:
If Data1.Recordset <> EOF Then

Sencillo, verdad?

¿EN Q parte?
Y me podrias decir q significa el BOF y el EOF

BOF (begin of file)
EOF (end of file)