Visual Basic - Problema con la DB

Hola quisiera saber si me pueden ayudar es que tengo una consulta que no me funciona, pues en la base de datos el campo es tipo numerico y no se como se consulta. Gracias por la ayuda.

Si lo q quieres es q a traves de un TexBox, te alle la referencia a un numero en tu BD debes validarlo:
Val( Texbox)

Mira lo tengo asi y no me funciona:
psql = "select * from productos where codpro = ' " & val(txt1.text) & " ' '"
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.ActiveConnection = cn.ConnectionString
rs.CursorLocation = adUseServer
rs.Open psql
If rs.EOF = True Then
a = MsgBox("Codigo no encontrado", vbCritical, "MOVIL'SOFT")
Else
a = MsgBox("Esta bien", vbDefaultButton1, "movil'soft")
End If

Hola reemplaza tu linea por esta otra espero te sirva

psql = " select * from productos where codpro = " & val(txt1.text) & " "

Jose muchas gracias por ayudarme me funciono perfectamente.