Olá pessoal desenvolvi uma simples rotina para compactar Banco de Dados Access, e meu BD está com senha, e não sei onde tenho que colocar a senha do BD para poder compacatar ele, e quando coloco o BD sem senha funciona normal:

 

Private Sub Compactar_Click()

Dim DB1 As String
Dim DB2 As String
X = MsgBox("Deseja Compactar a Base de Dados?", 36, "Compactar")
If X = 6 Then
    oDB.Close
    Bd.Close
    DB1 = App.Path & "Controle.mdb"
    DB2 = App.Path & "Controle2.mdb"
    DBEngine.CompactDatabase DB1, DB2
    Kill DB1
    Name DB2 As DB1
    MsgBox " Compactação concluida com Sucesso !!! "
Set db = Workspaces(0).OpenDatabase(App.Path & "Controle.mdb", False, False, ";PWD=Senha??")

End If

end sub

 

Se puderem me ajudar agradeço Abraços...

 

mandei pra seção dicas..

 

Repara e compacta banco access com [DAO] usando senha e mantendo a senha.

Vá no menu Project -> Reference
Marque a opção Microsoft DAO 3.51 Object Library

[code][b]
                  Screen.MousePointer = 11
                  DBEngine.RepairDatabase App.Path & "Dados.Mdb" 
                  If Dir(App.Path & "Dados2.Mdb") <> "" Then Kill App.Path & "Dados2.Mdb" 'Verifica se o arquivo existe, e deleta
                  DBEngine.CompactDatabase App.Path & "Dados.Mdb", App.Path & "Dados2.Mdb", dbLangGeneral & "; pwd=senha", , "; pwd=senha" 'cria o arquivo compactado e mantem senha
                  Kill App.Path & "Dados.Mdb" 'deleta o arquivo antigo
                  FileCopy App.Path & "Dados2.Mdb", App.Path & "Dados.Mdb" 'efetua a cópia do novo para o antigo
                  Kill App.Path & "Dados2.Mdb" 'deleta o arquivo novo
                  Screen.MousePointer = 0
[/b][/code]

Darlan muito obrigado pela dica deu certo abraços e que dica me ajudou pra caramba vlw... como faço pra fechar minha pergunta...

tem um cadeado.