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").Select Selection.ClearContents Cells(1, 1).Select 'define de onde buscar o registro: Palavra = Sheets("Formulário").Range("a1").Value Palavra = UCase(Palavra) 'ThisWorkbook.Path & "\BD_Orcamento.mdb" Set Db2 = OpenDatabase(ThisWorkbook.Path & "BD_Orcamento.mdb" & ThisWorkbook.Name, False, False, "Excel 8.0") Set RSt2 = Db2.OpenRecordset("SELECT * FROM Registro") 'define em qual linha começar: linha = 5 'enquanto não houver erro: While Not RSt2.EOF linha = linha + 1 Cells(linha, 1) = RSt2("armario") Cells(linha, 2) = RSt2("caixa") Cells(linha, 3) = RSt2("prateleira") Cells(linha, 4) = RSt2("conteudo") RSt2.MoveNext Wend 'fecha o banco RSt2.Close Db2.Close End Sub E também tenho duvida de como fazer UPDATE Obrigado!