così a me funziona!:
---------------------------------------------
var = DBListArticoli.Text
dataDettagli.Refresh
dataDettagli.RecordSource = "Select * from Articoli where descrizione like '" & var & "'"
dataDettagli.Recordset.FindNext "descrizione = '" & var & "'"
dataDettagli.Refresh
-----------------------------------------------