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>