Este fórum está sendo desativado

[fernandohaese]

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