Visual Basic codigo vba excel para buscar dados no access

[fernando haese]

preciso de ajuda com esse codigo vba excel para buscar dados do  no Access
esta dando( erro de tempo de execução '13')
(tipos incopativeis)
nessa parte do codigo:      Set consulta = banco.OpenRecordset(comandoSQL)

vou disponabilisar o codigo toda tauvez alguem acha o erro

lembrado( cad_bd.mdb) e o meu banco de dados access

<Private Sub btfiltrar_Click()>

<Dim data_ini As Date^>
<Dim data_fin As Date>


<dim banco As Database>
<dim consulta As Recordset>



<Set banco = OpenDatabase(ActiveWorkbook.Path & "\cad_bd.mdb")>






<data_ini = Format(Me.txt_data_inicial, "mm/dd/yyyy")>
<data_fin = Format(Me.txt_data_final, "mm/dd/yyyy")>


<If Me.txt_data_final = "" Or Me.txt_data_inicial = "" Then>
<MsgBox "selecione duas datas para aplicar filtro", vbInformation>
<Exit Sub>

<End If>

<Dim comandoSQL As String>
<comandoSQL = "select Cadastro from tabela_clientes where Cadastro Between #" & data_ini & "# And #" & data_fin & "#">


<Set banco = OpenDatabase(ActiveWorkbook.Path & "\cad_bd.mdb")>

'aqui que o aparece o erro

<Set consulta = banco.OpenRecordset(comandoSQL)>


<ListView1.ListItems.Clear>

<While Not consulta.EOF>
<Set List = ListView1.ListItems.Add(text:=consulta(0))>
<List.SubItems(1) = consulta(1)>
>List.SubItems(2) = consulta(2)>
<List.SubItems(3) = consulta(3)>
<List.SubItems(4) = consulta(7)>
<List.SubItems(5) = consulta(8)>
<List.SubItems(6) = consulta(9)>
<List.SubItems(7) = consulta(10)>
<List.SubItems(8) = consulta(11)>
<List.SubItems(9) = consulta(12)>
<consulta.MoveNext>
<Wend>
<'Me.lbl_registros = ListView1.ListItems.Count>

<Set banco = Nothing>
<Set consulta = Nothing>

<End Sub>