Cotinuo error al hacer consulta SQL desde VB

[Karolineta]

Hola otra vez a todos...
Si no fuera realmente urgente no los molestaría, pero necesito, por favor, que alguien me oriente sobre, cómo solucionar el siguiente mensaje de error: "No coinciden los tipos de datos en la expresión de criterios". el código que genera error es:

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\AEntregaFinal\Analiza.mdb;Persist Security Info=False"
cn.Open

Set rsCuenta = New ADODB.Recordset
rsCuenta.Open "SELECT COUNT(Info) AS Cont FROM Buffer WHERE Info='1' AND Hora BETWEEN Hora=Hor1 AND Hora=Hor2", cn, adOpenDynamic, adLockOptimistic

Lo que busco hacer, es obtener del campo Info el conteo de los elementos que valgan 1, comprendidos entre HoraIni y HoraFin. HoraIni y HoraFin son valores que se obtienen de sendos ComboBox y se comparan en la búsqueda con el campo hora.
La comparación Hora = Hor2 es correcta o se hace algo como Hora = 'HoraIni.Text', o algo así...???
Porfa ayudenme!!! Esto me tiene dando vueltas como loca.

A quien me atienda positivamente MUCHAS GRACIAS!!!!

[reel]

Me parece que estás utilizando BETWEEN de forma incorrecta.

La sictaxí es más o menos así:

campo BETWEEN varlo1 AND valor2

Yo siempre lo utilizo de esa forma.

Saludes

[Developer9]

Eje!!! es verdad... la sintaxis del between esta incorrecta

[robertonavarro]

¿Que tipo de dato almacena tu campo Info de tu tabla? Si es tipo numérico debes poner el valor de Info en tu consulta sin comillas, es decir: Info=1 .
Eso explicaría porqué no coinciden los tipos de datos.
Puede ser otra cosa, pero primero revisa bien eso

Otra posible causa de error es la forma en la que usas las variables Hora1 y Hora2. Estas variables tienen un valor mientras se encuentren en el contexto de una instrucción de VB, mientras que si las incluyes dentro de la cadena que forma tu consulta carecen de valor; de tal forma que debes hacer una concatenación con la cadena de tu consulta para que conserven su respectivo valor.
Por ejemplo:
"SELECT COUNT(Info) AS Cont FROM Buffer WHERE Info='1' AND Hora BETWEEN Hora=#" & Hor1 & "# AND Hora=#" & Hor2 & "#"

nota: las almohadillas (#) son para validar el tipo de dato Hora, suponiendo que ese sea el tipo de dato que almacenan

[S-Virus]

El Between no lo usas correctamente. Es como dice Reel