Dim sEXE As String
Dim sMDE As String
DIM sMDW As String
 
sEXE = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"
sMDE = "H:\pfad\db.mde"
sMDW = "H:\pfad\arbeitsgruppendatei\db.mdw"
 
ac.OpenCurrentDatabase sEXEName & " " & Chr$(34) & sMDE & " /WRKGRP " & sMDW & _
  Chr$(34)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de