SQL - AYUDA...¡¡¡ULTIMO REGISTRO¡¡¡¡¡

cuando realizo la consula que expreso, y no existe ningun registro igual al que busco se me queda la base de datos digamos sin datos...que codigo tendria q especificar para quue al no encontrar ese registro se me mostrara el ultimo que exista????
Private Sub MaskEdBox1_Change()

Dim busco As String
busco = (MaskEdBox1.Text)
Form1.Data1.RecordSource = "select *from DATOS where NUMEROLIBRO Like '" & MaskEdBox1.Text & "*'"
Form1.Data1.Refresh

HE PROBADO CON
If Form1.Data1.Recordset.EOF = False And Form1.Data1.Recordset.BOF = False Then
FORM1.DATA1.RECORDSET.MOVENEXT

pero me da error

ME URGE MUCHO¡¡¡¡¡ GRACIAS

El problema consiste en que cuando usted busca un registro en una tabla que NO TIENE DATOS, es imposible hacer un Next o un Previous.

En todo caso, si el BOF o EOF estan TRUE, mande un mensaje de error de tabla vacia o dato no encontrado, pero NO realice un movimiento hacia adelante o hacia atras, teniendo plena conciencia de que NO hay datos.

Prueba esto:
If (Recordset.EOF And Recordset.Bof) Then
'Mensaje de que no hay datos, con un Msgbox, por ejemplo
Else
'Las operaciones que tengas que realizar
End If

A mi me funciona.

GRACIAS DE TODO CORAZON...HE CONSEGUIDO SOLUCIONAR EL PROBLEMA REALIZANDO EL SIGUIENTE CODIGO¡¡¡
If .Data1.Recordset.EOF And .Data1.Recordset.BOF Then
MsgBox "NO HAY DATOS", vbCritical

Data1.RecordSource = "select * from MISDATOS "
Data1.Refresh
Data1.Recordset.MoveFirst
SSTab1.Tab = 0
End If
DE ESTA FORMA TRAS QUEDAR EN BLANCO LA BASE DE DATOS..VUELVO A SELECCIONAR TODOS LOS REGISTROS, PREPARANDOLOS PARA UNA NUEVA BUSQUEDA..

¿ QUE TE PARECE?? GRACIAS DE NUEVO¡¡

que buena onda...

:)

Esa es la solución.......felicidades