DUVIDA - SELECT VBA LIGANDO COM ACCESS

[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!

[Alyson Ronnan Martins]

em que linha esta dando erro?