[Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access

queria fazer um Filtro de pesquisa entre DATAS dentro de Listbox. data_inicio  data_fim
teria que mostra o intervalo de datas do 25/06/2014 ate o dia 28/06/2014. ex: todos do dia 25/06/2014, 26/06/2014 ,27/06/2014 , 28/06/2014.
se alguem poder me ajudar, agradeceria muito. obrigado desde já

o meu codigo seria este:

Dim data_inicio As String
Dim data_fim As String

Private Sub cbo_dataini_Change()

cbo_dataini.AddItem "23/06/2014"
cbo_dataini.AddItem "28/06/2014"


End Sub
Private Sub cbo_datafin_Change()
cbo_datafin.AddItem "23/06/2014"
cbo_datafin.AddItem "28/06/2014"
data_inicio = cbo_dataini.Text
   data_fim = cbo_datafin.Text
   
     
Filtro1
End Sub

Private Sub Filtro1()

   
   Dim ComandoSQL As String
   
   
 ComandoSQL = "select * from tabela_balancim where Data like '*" & data_inicio & "*' Or Data like '*" & data_fim & "*' "
 
   Call Conecta
   
   
   Set consulta = banco.OpenRecordset(ComandoSQL)
   
 
   On Error Resume Next
           
           ListView1.ListItems.Clear
   
           While Not consulta.EOF
           Set List = ListView1.ListItems.Add(Text:=consulta(0))  'id
           List.SubItems(1) = consulta(1) 'nome
           List.SubItems(2) = consulta(2) 'Data
           List.SubItems(3) = consulta(3) 'tipo de bojo
           List.SubItems(4) = consulta(4) 'Tamanho
           List.SubItems(5) = consulta(5) 'cor
           List.SubItems(6) = consulta(6) 'Quantidade
           consulta.MoveNext
           Wend
 o resultado e este : so mostra as datas do dia 23/06/2014 e 28/06/2014.

Tente usar na sua consulta o operador BETWEEN. Exemplo:


"SELECT * FROM tabela_balancim WHERE DataEntrega Between #" & data_inicio & "# AND #" & data_fim & "#"

Da forma como está sua consulta retornará apenas a primeira e última data.

obrigado amigo valeu mesmo ai!

obrigado amigo valeu mesmo ai