Visual Basic - ayuda con codigo

hola tengo un listview en donde visualizo mis datos guardadas en una BD..y tengo este codigo...para buscar por el codigo...pero me arroja error
haber si ustedes me pueden ayudar para ver cual es el error...

Set baseTB = OpenDatabase(App.Path & "ase de datosd1.mdb")
sbuscar = "select * from farmacos where codigo = '" & Text1.Text & "'"
Set trs = baseTB.OpenRecordset(sbuscar, dbOpenSnapshot)
If trs.RecordCount = 0 Then
MsgBox "este CODIGO no esta en la base de datos"
Exit Sub
End If
With ListView1
.ListItems.Clear
Do Until trs.EOF = True
Set Item = .ListItems.Add(, , trs(0) & "")
For i = 1 To .ColumnHeaders.Count - 1
Item.SubItems(i) = trs.Fields(i) & ""
Next
trs.MoveNext
Loop
End With

Set trs = baseTB.OpenRecordset(sbuscar, dbOpenSnapshot) en esta parte me sale error
me dice: No coinciden los tipos de datos en la expresion de criterios.

agradesco de su ayuda...
Saludos

El campo 'codigo' es numérico, quita las comillas

sbuscar = "select * from farmacos where codigo = " & Text1.Text

ok muchisimas gracias
me ha sido de gran ayuda

Saludos