Visual Basic - Error 3001: Argumentos incorrectos, ...

Me da el error 3001 al hacer la siguiente busqueda en mi BD:

sSql = "SELECT * FROM Equipos"

Set cn = New ADODB.Connection
Set rsEquipos = New ADODB.Recordset

With cn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";" & _
"Jet OLEDB:Database Password=" & pass
.Open
End With


rsEquipos.Open sSql, cn, adOpenDynamic, adLockOptimistic

criterio = "[NbEquipo]=" & text1.text
rsEquipos.MoveFirst
rsEquipos.Find criterio
if rsEquipos.EOF or rsEquipos.BOF then
msgbox "No encontrado"
else
msgbox "Encontrado"
end if
rsEquipos.Close
rsEquipos = Nothing
cn = Nothing

El error me lo da en la linea del rsEquipos.Find criterio y solo me pasa con ese campo de la tabla, porque he probado con otro campo y no me da ningun problema. El campo esta definido en la BD de Access como texto. De hecho este tipo de consulta la tengo hecha en otros formularios de la misma forma y no me da ningún problema. A que puede ser debido esto?

Si el campo está definido como texto la variable la tienes que encerrar entre comillas simples:
criterio = "[NbEquipo]='" & text1.text & "'"

Gracias Nicolas

El problema está en el criterio
criterio = "[NbEquipo]=" & text1.text

Debe cambiarlo por:
criterio = "[NbEquipo]= '" & text1.text & "'"