Ho fatto una prova sulla nostra LAN e ho verificato che sia con DAO che con ADO puoi connetterti ad un database che si trova su di un PC della LAN. Devi comportarti come se accedessi ad un database locale.

codice:
Dim DB As DAO.Database
Dim rst As DAO.Recordset

    'Apertura DB
    Set DB = DBEngine.OpenDatabase("\\Server\E\Prova\Databases\DB.mdb")
    'Apertura Tabella
    Set rst = DB.OpenRecordset("Tabella", dbOpenTable)

    rst.MoveFirst    'posizionamento sul promo record

    'Fai delle operazioni sul DB

    DB.Close
Set rst = Nothing
Set DB = Nothing
Spero di aver capito bene il quesito e di averti aiutato, tienimi aggiornato...
Ciao!!