Ayuda en IF comparando datos

[pepelucho]

Hola tengo la siguiente base de datos:

codigo--- inicial .... final .... valor
1 .............1 ......... 50 ........30
2 .............51 ........ 100 ......45
3 ............101......... 200 .......66

Y desde un text tengo un numero, el cual quiero q se compare con los datos de mi base de datos. Ejm:

Mi text=4, que busque en la tabla y vea en que rango esta (entre inicial y final) y cuando encuentre su rango muestre su valor, he hecho esto pero no me funciona

Set rt=Server.CreateObject("adodb.recordset")
sql= "Select *from valores"
rt.open sql,conexion
Do while not rt.eof
cantidad=txtcantidad.text
If cantidad>=rt("inicial") and cantidad<=rt("final") then
valor=rt("valor")
End if
rt.movenext
Loop

Espèro me puedan ayudar en esto . . . Gracias