Complimenti ci hai preso in pieno!! :quipy:


codice:
Dim sqlstring As String
sqlstring = "select * from Tipo where TIPO='" & cmbscelta & "'"
Data.rstipo.Open sqlstring
Data.rstipo.Find "tipo LIKE '" & cmbscelta & "'"
If Not Data.rstipo.EOF Then
Do While Not Data.rstipo.EOF
CATEGORIA = (Data.rstipo.Fields("CATEGORIA"))
Data.rstipo.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
Data.rstipo.Close
Funziona

Grazie mille