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...![]()