Ciao a tutti, continuo i miei studi, ma non riesco a capire perchè cosi non funziona

codice:
Private Sub cmbscelta_Click()


Dim sqlstring As String

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

Data.rstipo.find (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

End Sub
o meglio non è che non funziona ma mi da sempre "Nussun Record"

sto usando il Data Environment

qualcuno sa aiutarmi?

Grazie mille