Ako mislis da pristupis drugoj bazi iz samog koda onda se to radi na sledeci nacin:
Code:
Dim db As Database
Set db = OpenDatabase(Application.CurrentProject.Path & "\db2.mdb")
I onda nastavis da radis to sto si hteo sa ovim db, na primer sledeci primer ti izlista sve tabele u toj bazi (izlistava i sistemske tabele):
Code:
Dim S As String, I As Integer
S = "Broj tabela: " & db.TableDefs.Count & vbLf
For I = 0 To db.TableDefs.Count - 1
S = S & db.TableDefs(I).Name & vbLf
Next
MsgBox S