Visual Basic - busquedas nulas en visual basic/SQL

Hola amigos. Tengo un problema relacionado a busquedas en visual basic utilizando sentencias en SQL. Las lineas de codigo son las siguientes:

Private Sub Command1_Click()
Dim BDD As Database
Dim TBL As Recordset
Dim SQL As String
List1.Clear

Set BDD = OpenDatabase("C:\basepruebas\baseprueba.mdb")
SQL = "SELECT * FROM Nombre WHERE numero < 30"
Set TBL = BDD.OpenRecordset(SQL)
TBL.MoveFirst
Do Until TBL.EOF 'La propiedad EOF se pone TRUE cuando se a llegado al final de la tabla
List1.AddItem TBL("numero") & " " & TBL("nombre")
TBL.MoveNext
Loop
TBL.Close
BDD.Close

End Sub

Estas lineas funcionan perfectamente. De una tabla llamada: "Nombre" busca y muestra los registros en el campo "numero" si se cumple la condicion de que dichos valores sean menores a 30. El problema radica en que cuando no existen registros con dicha condicion se presenta un error en el programa . De que manera puedo modificar dicho codigo para que me visualice un mensaje o evento que me diga que no se encontraron registros y el programa siga corriendo. Gracias por sus ayudas.

Creo que cuando el recordset esta vacio tiene las propiedades eof i bof a true.
Puedes probar: if TBL.EOF=true and TBL.BOF = true then "Vacio" else "...."

yo que vos creo un recordser llamado rstemp
y despues abris la consulta con ese recordset
osea asi rstemp.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
y lo validas con la propiedad recordcount asi
if rstemp.recordcount < 1 then
msgbox "no se encontraron registros"
else
Do Until TBL.EOF 'La propiedad EOF se pone TRUE cuando se a llegado al final de la tabla
List1.AddItem TBL("numero") & " " & TBL("nombre")
TBL.MoveNext
Loop
TBL.Close
BDD.Close

end if
PORQUE bof o eof te devuelven la posicion del registro y no si existen registros
fijate haber q onda fede rosario argentina

Gracias amigos..............sus respuestas ha sido de gran ayuda......ya solucione el problema. Muchas gracias Fede.