però se apri il recordset con questa stringa :

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

non importa fare anche la .find dopo, perchè lo specifichi in apertura con "WHERE TIPO = '" cmbscelta & "'"

infatti ti dovrebbe aprire il recordset inserendo solo i record con tipo = cmbscelta....