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!!!!