GOSTARIA DE SABER O QUE FALTA NESTA LINHA PARA ABRIR O BANCO DE DADOS COM SENHA

 

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:SCservilardservilar.mdb"

 

Aginaldo

Olá Aginaldo, tudo bom???

Tente fazer o seguinte:

 

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\SCservilar\dservilar.mdb;Pwd=COLOQUE AQUI SUA SENHA"

 

 

Coloque a função abaixo para abrir o Banco.

Concepta é o Nome da ODBC e wgwg00 é a senha.

Sub Abre_Conexao()
On Error GoTo rErro

    conn1.ConnectionString = "DSN=Concepta;UID=admin;PWD=wgwg99"
    Gl_WildData = "#"
    conn1.Open
    Exit Sub

rErro:
    MsgBox "Problemas na conexão de dados: " & Chr(13) & _
           "tente novamente e, caso o problema persista, " & Chr(13) & _
           "contate o Fabricante ", 16, "Erro " & Err
          
    End
End Sub