bhe prova qualcosa del genere :

' bla bla...
sql = "SELECT * FROM Database_magazzino "
if rep_tipo<>"" then
sql= sql&"WHERE Tipo_Veicolo LIKE '"&rep_tipo&"'"
end if
'apri connessione= mydbconn
'apri record set = rs
rs.Open sql, mydbconn
'etc. etc.
Ciao