Consulta con sql

Tengo esta rutina para consultar el rango de los consecutivos de cierto buque:
nota:las variable idbuque y conse las tengo como texto
Sub consecutivo()
Dim i, R As Integer
Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
MSFlexGrid1.Visible = True
Dim path_Bd As String
On Local Error Resume Next
path_Bd = "C:\programas\bitacora\bitacora.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_Bd _
& ";Persist Security Info=FALSE"
Rs.Open "SELECT buque,conse,total FROM paladas Where idbuque = ('" & Text3.Text & "' )And conse >= ('" & Text1.Text & "' ) And conse <=('" & Text2.Text & "')", cn, adOpenStatic, adLockOptimistic
Call Llenar_FlexGrid(cn, Rs)
End Sub
donde:
text1.text = consecutivo de inicio
text2.text = consecutivo final
cuando consulto desde un consecutivo hasta el mismo consecutivo, me muestra los datos bien, pero cuando el rango se incrementa me muestra los valores mal...
porfa colaborenme....