Presados

 

 

como faço para abrir um banco de dados com senha no VB, alguem pode me dar alguma dica

 

Aginaldo se vc utiliza DAO vc usa assim:

Dim DbName As String
Dim Wrk As Workspace
    DbName = App.Path & "Banco.mdb"
'indica o banco de dados
    Set Wrk = DBEngine.Workspaces(0)
    Set BD = Wrk.OpenDatabase(DbName, False, False, ";PWD=Senha")

 

Se vc utiliza ADO vc usa assim:

Set CON = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")

CON.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "Banco.mdb;Jet OLEDB:database Password=Senha"

 

Espero ter ajudado

 

T+