[Resolvido]Acessar Banco não corrente via vba

Bom dia Pessoal!!
Estou com a seguinte dúvida: Para acessar o banco corrente via VBA e manipular os dados das tabelas pelo SQL, basta eu criar a variável e "setar" a variável criada como "Set BANCO = CurrentDb". Mas e se o Banco estivesse em outro Local? Qual a forma mais simples de se fazer essa conexão?

Desde de já agradeço.

FLAVIO

Boa tarde,
assim:

Dim db As dao.Database

Set db = dao.OpenDatabase("caminho\nome_bando.accdb")

db.Execute "sql"

db.Close
Set db = Nothing

Flavio boa tarde,

Minha sugestão é utilizar uma conexão do tipo ADO (Active Data Object) e para isso é necessário selecionar a seguinte referencia:



Imaginando que este banco externo não tenha senha, a conexão seria esta:

'FUNÇÃO PARA CONEXÃO PARA ACCESS VERSÕES 2007/2010/2013

Public Function fnConn()
Dim cn As New ADODB.Connection

   If cn.State = 1 Then Exit Sub
   
   With cn
       .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=CAMINHO_DO_DB_EXTERNO;Persist Security Info=False;"
       .Open
   End With


End Function


Quando for utilizar recordset para este banco de dados, faça conforme abaixo:

Código:



Dim sSQL As String
Dim rs  As New ADODB.Recordset


    'Abre a conexão
    Call fnConn
   
    'Instrução SQL desejada
    sSQL = "SELECT * FROM SUA_TABELA WHERE SUA_CONDICAO"
   
    'Abre o recordset usando a variável de conexão (cn)
    rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic
   
    If Not rs.EOF Then
   
    'SEU CÓDIGO CONFORME A ROTINA DESEJADA
   
   
    End If
   
    'FECHA RECORDSET
    rs.Close
    'lIMPA DA MEMÓRIA
    Set rs = Nothing
   
    'fECHA CONEXÃO
    cn.Close




Espero ter ajudado

Boa sorte


FIM

Show!!! Marcelo Davi... Funcionou bacana... Se o banco tiver senha, tem como ?

Assim:

Set db = dao.OpenDatabase("caminho\nome_bando.accdb", False, False, "MS Access;PWD=SuaSenha")

Mais uma vez Obrigado a todos!! Funcionou redondo!!
Vlw.

Gratos pelo retorno! O Fórum agradece!