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>