Problema con comillas en sentencia where

[41b3r70]

Tengo un problema con esta sentencia de un recordset en la que pretendo buscar numeros entre un valor y otro. Los datos se deben tratar como numero pero visual me los interpreta como variant/string en la ventana de inspeccion.

He probado colocar las comillas de varias maneras pero siempre me pone tipo de datos variant string.

La sentencia es esta, he decir que es solo una parte de las variables que me elaboran la sentencia

Código:

If Txt_HCPDI.Text <> "" And Txt_HCPDS.Text <> "" Then
If strSelect = "" Then
strSelect = strSelect & " DiametroAnum between " & CDbl(Txt_HCPDI.Text) & " and " & CDbl(Txt_HCPDS.Text)
Else
strSelect = strSelect & " and DiametroAnum between " & CDbl(Txt_HCPDI.Text) & " and " & CDbl(Txt_HCPDS.Text)
End If
End If

Con eso consigo que la sentencia sea:

Código:

"Select * from Tabla_de_fabricacion Where DiametroAnum between 50 and 60"

Como coloco las comillas para que busque diametros entre dos valores como numeros y no como cadena??

[pkj]

Se supone que si quieres que se tome como texto debe ir entre comillas simples, ¿no?
Valdria con poner Txt_HCPDI.Text en lugar de CDbl(Txt_HCPDI.Text).

En fin, yo no entiendo mucho. Si no es eso prueba a usar Val(). Eso devuelve un número y no una cadena.

Código vb:

If Txt_HCPDI.Text <> "" And Txt_HCPDS.Text <> "" Then
  If strSelect = "" Then
    strSelect = strSelect & " DiametroAnum between " & Val(Txt_HCPDI.Text) & " and " & Val(Txt_HCPDS.Text)
  Else
    strSelect = strSelect & " and DiametroAnum between " & Val(Txt_HCPDI.Text) & " and " & Val(Txt_HCPDS.Text)
  End If
End If
 

Suerte