Consulta Entre Datas

[Gabriel Cabral]

Olá pessoal....

é o seguinte....

tenho uma combobox com os nomes de clientes e um MSHFlexGrid q aparecerá o resultado da consulta de acordo com o nome escolhido na combobox....

está assim...

Private Sub cboNomeFantasia_Click()
Set Conex = New ADODB.Connection
Conex.Open StringDeConexao


StringSQL = "SELECT * FROM Atendimentos WHERE Atend_NomeFantasia Like "

StringSQL = StringSQL & "'" & cboNomeFantasia & "' ORDER BY CDate(Atend_Data)"


Set rs = New ADODB.Recordset

rs.Open StringSQL, Conex, adOpenDynamic, adLockOptimistic

If rs.EOF Then MsgBox "Não foram encontrados registros correspondentes."

Set GrideCons.DataSource = rs
GrideCons.Refresh
rs.Close
Set rs = Nothing

O problema surge quando preciso fazer essa consulta entre datas...separadamente ou juntamente com a consulta feita do nome...

como se faz a consulta entre datas?

já tentei utilizar BETWEEN na instrução SQL mas não deu certo....

o campo Atend_Data, q armazena as datas é do tipo texto....mas convertido para data [CDate()] na instrução SQL....

para fazer a consulta entre datas é preciso especificar as datas em duas textbox...

elas não precisam estar ligadas a nenhum campo não é?!

Agradeço muito quem puder me ajudar

Obrigado

[kuroi]

o select teria q ser tipo assim:

sql = "Select * From Tabela Where CDate(Data) Between #" & Format(data1.Text, "YYYY-MM-DD") & "# And #" & Format(data2.Text, "YYYY-MM-DD") & "#"

se não funcionar, posta ae o codigo q você usou e mensagem do erro.

[Gabriel Cabral]

o select teria q ser tipo assim:

sql = "Select * From Tabela Where CDate(Data) Between #" & Format(data1.Text, "YYYY-MM-DD") & "# And #" & Format(data2.Text, "YYYY-MM-DD") & "#"

se não funcionar, posta ae o codigo q você usou e mensagem do erro.

Ae kuroi....certinho....muito obrigado mesmo