Visual Basic - MSGBOX EN SQL

TENGO HECHA UNA BUSQUDA EN SQL EN UN TEXT., Y CUANDO HACE LA BUSQUEDA ME APARECE EL RESULTADO EN OTRO TEXT, PERO SI LA BUSQUEDA NO ENCUENTRA NADA ME TIRA ERROR COMO PUEDO SOLUCIONAR ESTO. GRACIAS
Data1.RecordSource = "select * from inmo where barrio like '*" & Text2(0).Text & "*'"
Data1.Refresh
For i = 0 To 16
Text1(i).Text = Data1.Recordset.Fields(i).Value
Next i
End If

Intercepta el error:
if Data1.Recordset.Eof then
msgbox "No existen registros"
else
' Aqui colocas tu for
end if