felipe.passos

Boa tarde Pessoal, Me ajudem nesse SELECT, quero trazer toda a lista que tem no BD do Access para o Excel usando o VBA Nesse meu codigo está dando erro. Option Explicit Global Db As Database Global RSt As Recordset Global RSt2 As Recordset Global rstp As Recordset Global RstAux As Recordset Global UserName, SQL, SQL1 As String Public Sub Busca_eventos() Dim Db2 As Database Dim RSt2 As Recordset Dim linha As Long ''define a linha onde será inserido Dim Palavra As Variant 'A cada nova pesquisa o conteúdo anterior será apagado Range("A6:f1000")