Visual Basic para Aplicaciones - Creo ke estoy pasando mal los datos

Hola mi problema es ke tengo esta funcion:

Public Function busca(ByVal pasar As String) As String

Dim rs As New ADODB.Recordset
sql = "select * from estcontrol where codigo<" & pasar
rs.Open sql, cn
If rs.EOF Or rs.BOF Then
busca = False
Else
rs.MoveFirst
pdispositivo = rs.Fields("dispositivo")
pcodigo = IIf(rs.Fields("codigo") <> "", rs.Fields("codigo"), 0)
RaiseEvent refresh(pasar)
busca = True
End If
rs.Close
Exit Function

End Function

En donde quiero localizar el dato guardado en la variable "pasar" que se encuentra en la colmna codio de mi base e datos "estcontrol", solo que ocurre un problema y este me dice "No coinciden los tipos de datos en la expresion de criterios "

A la fucion la llamo con este codigo:

Dim respuest As Boolean
respuesta = est.busca(Val(Text1.Text))
If respuesta = True Then....................etc.

Si el campo codigo de la tabla estcontrol es numero claro que estas comparando mal , ya que pasar el strig.
Convierte la variable pasar a numerica , [Val(pasar)] y luego compara

Hola, gracias, si me di cuenta de eso, jeje, ya lo corregi, ahora cambie la declaracion en vez de ser sring el dato, es single, pero ocurre que al guardar en la base de datos de access me redondea el número que guardo, y al buscarlo, pues lógico, no lo encuentro, ya que es otro, como soluciono esto?

De antemano gracias.