Probaj sa funkcijom Shell().

Function OtvoriDrugu()
Dim objAccess As Object
Dim Putanja as String
Dim Dokument As String


Putanja="Putanja" & "\"
Dokument =Putanja & "Imedokumenta"
Set objAccess = GetObject(Dokument)

End Function

Izonic je u pravu. Shell pokreće samo izvršne datoteke tipa .exe. Za .mdb ipak treba da se setuje objekat.

probavam

Getsbi dobro si ti njemu rekao mislim da moze i shelom samo je mozda ovo elegantnije rjesenje.

Private Sub btnProizvodnja_Click()
Dim objAccess As Object
Dim Putanja As String
Dim Dokument As String
Putanja = "C:\Software\Proizvodnja" & "\"
Dokument = Putanja & "SoftProizvodnja.mdb"
Set objAccess = GetObject(Dokument)
End Sub

ne otvori
uredno se ucitaju ali ga ne otvori

Probaj sa ovom.

Public Function OtvoriFajl(Sfile As String) As Variant
'*******************************************
'Ime: OtvoriFajl (Function)
'Sadržaj: Otvaranje drugog fajla
'Ulazni parametri:Na vrhu modula postaviti sledece:

'.............................................................................................................................................................................
'Const MAX_FILENAME_LEN = 260
'Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
'.............................................................................................................................................................................
'Izlazni parametri:
'*******************************************

On Error GoTo Greska

Dim Izvrsni As String
Dim i As Integer, s2 As String
Dim a

If Dir(Sfile) = "" Or Sfile = "" Then
MsgBox "File not found!", vbCritical
Exit Function
End If

s2 = String(MAX_FILENAME_LEN, 32)

i = FindExecutable(Sfile, vbNullString, s2)
If i > 32 Then
Izvrsni = Left$(s2, InStr(s2, Chr$(0)) - 1)
Else
MsgBox "Nije povezano"
End If
Shell Izvrsni & " " & Sfile, vbNormalFocus

Izlaz:
Exit Function
Greska:
GreskaB (Err.Number)
Resume Izlaz
End Function

Kod mene Izonic-ova prvobitna funkcija radi. Otvara .mdb u minimize WindowStil-u.

Moja pretpostavka zasto negdje ne radi je:
Zato sto je access vec podignut a acces ne moze podici 2 aplikacije e sad dali postoji opcija da se ponovo podigne access te aplikacija to bih ja vas pitao ako neko zna.
Ako nisam uspio dobro objasniti pokusat cu na wordu.
Word napr. ima opciju da se vise dokumenata podigne u jednom prozoru ili pak svaki dokument u drugom.

OS: MS Winows XP Profesinal v.2002 sp2
DBMS: MS Access 2003 (Office 2003 sp2)

Ovo su moje reference. Mogu da otvorim Access onoliko puta koliko imam memorije. Možda starije verzije ne mogu. Probaću popodne u kacelariji tamo imam Access 2000 pod Windows '98 SE. Čini mi se da ranije nije moglo.

win xp sp2
office 2003 sad ne znam dali je sp2

Ako se koristi shell onda ovako

program = "C:\Program Files\Microsoft Office\Office10\msaccess"
putanja = "c:\damir\OPTIkvaliteteTRT.mdb"
start = program + " " + putanja
izvrsi = Shell(start)

@ Trtko
Hvala Trtko. Ovo nisam znao. Pokretao sam sa Shell() samo .exe. Isprobaću.
@ Dr.Pucko
Trebalo bi da pokreće više prozora bez obzira na to koji je Office 2003. I Office 2002 isto to može. Starije verzije više nemam.

Private Sub btnProizvodnja_Click()
Dim putanja, program, start, izvrsi

program = "C:\Program Files\Microsoft Office\OFFICE11\msaccess"
putanja = "C:\Software\Proizvodnja\SoftProizvodnja.mdb"
start = program + " " + putanja
izvrsi = Shell(start)

End Sub

Ovo radi
Hvala svima na savjetima problem riješen