ciao Rossella,
credo che l'errore stia proprio nel comando .find

con questa stringa
sqlstring = "select * from Tipo where TIPO='" & cmbscelta & "'"

devi aprire un recordset e non fare una ricerca
quindi

Data.rstipo.open sqlstring

altrimenti apri prima il recordset poi usi find così:

data.rstipo.find "tipo LIKE '"& cmbscelta & "'"

almeno credo...