Formulário Excel e access para BD

Caros, boa noite!


Criei um tabulador no excel 2010 e a tabela para o banco de dados no access 2010, mas estou com problemas.

Não esta conectando com o BD, abaixo segue print e código utilizado.


Dim conexao As Database
Dim OS As Recordset

Private Sub UserForm_Initialize()

Set conexao = OpenDatabase(ActiveWorkbook.Path & "\pp" & ".accdb")

Set OS = conexao.OpenRecordset("reginaldo")


MsgBox OSBD!Hora



End Sub

Tente utilizar uma conexão ADO.

http://www.macoratti.net/ado_vbas.htm

Estou sem o Access no momento para testar o que você fez.