Visual Basic - AYUDA !!!

Hola tengo esta consulta, el resultado lo arroja a un cuadro de texto, pero cuando no encuentra nada en la tabla me mdanda un error null , como hago para que no me aparesca ese error y lo deje en blanco o en 0 el cuadro de texto???? GRACIAS

Set sql = DBEngine.OpenDatabase("E:\PROYECTO.mdb")
strSQL = "SELECT * FROM Tubular where no_ensamble like '*" & strPalabrabuscada & "*'"
Set sales = sql.OpenRecordset(strSQL, dbOpenDynaset)

flete1 = IIf(IsNull(sales.Fields("ORIGEN")), "", (sales("ORIGEN")))

Le podès poner

If sales.RecordCount = 0 then
.. no hagas nada
Else
... lo muestras en el cuadro de texto
EndIf

Muchisimas gracias, funciona a la perfección =) ...