João Paulo, eu crio na máquina local uma base com as diretrizes, caminho da base, impressoras, etc
QUando inicia o sistema basta ler essa base local para definir o caminho exemplo:
Public Base_Client As Database
Public Base_Termin As Database
C_Cam_Local$ = App.Path & ""
Db_Termin$ = C_Cam_Local$ & "BASE_LOCAL.mdb"
Set Base_Termin = Wk.OpenDatabase(Db_Termin$, False, False, ";pwd=SENHA")
Set Rc_Patent_Term = Base_Termin.OpenRecordset("Patente_T", dbOpenTable)
C_Cam_Rede$ = Rc_Patent_Term("Dir_Mdbs")
Db_Client$ = C_Cam_Rede$ & "Clientes.mdb
Set Base_Client = Wk.OpenDatabase(Db_Client, False, False, ";pwd=SENHA")
Esse exemplo abre as MDBS, as tabelas:
dim as rs as recordset
set rs=base_client.OpenRecordset("Tabela")