Busca com between

Pessoal faz tempo que to tentando fazer uma busca em um bd e nao consigo.

Tenho um bd access com um campo formatado como numero.

eu quero fazer uma busca com valor minimo e maximo

entao eu fiz um form assim

de 100 a 500

de 500 a 1.000

de 1.000 a 5.000

acima de 5.000

e na pagina de busca

valor = Request.form("valores")
If valor = "de 100 a 500" Then
valomin = 100
valormax = 500
SqlBusca ="Select * from produtos Where valor Between '"&valormin&"' AND '"&valormax&"' Order By valor"
End if

If valor = "de 500 a 1.000" Then
valomin = 500
valormax = 1000
SqlBusca ="Select * from produtos Where valor Between '"&valormin&"' AND '"&valormax&"' Order By valor"
End if
E assim por diante

Onde estou errando?

Obrigado a todos