ops..:adhone: fatto

codice:
Dim sqlstring As String
sqlstring = "select * from Tipo where TIPO LIKE '" & cmbscelta & "'"
Data.rstipo.Open sqlstring
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
infatti funziona ugualmente


grazie mille