Visual Basic - No filtra datos de una tabla

Hola tengo hecho este codigo para un list, y se me queda clavado en el rs.MoveFirst con el siguiente dialogo - ERROR 3021 - NO HAY REGITRO ACTIVO.

Le estoy dando vueltas y no veo el error

Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim a As String


Set db = OpenDatabase(App.Path & "\CARTERA.mdb")
sql = "SELECT * FROM SUBCATALEG WHERE codi LIKE '" & Form1.Text1.Text & "%' "
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)

List1.Clear

rs.MoveFirst
Do Until rs.EOF
List1.AddItem rs!descripcio
List1.ItemData(List1.NewIndex) = rs!id
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

Este mismo codigo lo tengo en otro list pero solo con

Set db = OpenDatabase(App.Path & "\CARTERA.mdb")
sql = "SELECT * FROM CATALEG ORDER BY CODI desc"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)

y me funciona correctamente, este lo uso para cargar toda la tabla.

¿me podeis guiar?

Grácias

Una forma:
Si el campo [codi] es numérico:
"SELECT * FROM SUBCATALEG WHERE codi = " & Form1.Text1.Text
Si es de texto:
"SELECT * FROM SUBCATALEG WHERE codi = '" & Form1.Text1.Text & "'"
Después de asignar el recordset:
If rs.RecordCount = 0 then
MsgBox "No hay registros"
Else
rs.MoveFirst
.. etc
End If
Saludos

lo solucione gràcias, se me habia colado un % por ahi

Holi