Select Com Mdb Externo

[TejoBR]

Tenho um código que faz select entre banco de dados, simplesmente colocando FROM [bancoexterno.mdb].tabela. O problema é que precisei colocar senha no banco, e gostaria de saber como fazer para enviar a senha.

[MrMALJ]

Bom achei um exemplo feito pelo João Mateus que talvez lhe seja útil, veja o código:

Se usar ADO, para se conectar com o mdb, use, devidamente adaptado o seguinte exemplo:

Public Function ConexaoDados() As Connection

base = PstrCamDados & "\pagament.mdb"

Set dbDados = New ADODB.Connection

With dbDados

.Provider = "Microsoft.Jet.OLEDB.4.0"

.Properties("Data Source") = base

.Properties("Jet OLEDBatabase Password") = "password"

End With

End Function

Página Pessoal dele:

http://joaomateus.planetaclix.pt

Como ele mesmo diz você deve fazer adaptações, veja se funciona pois não testei, e claro dê o retorno...