bu arada bir başka metod daha buldum
anacak neden böyle yapıldığını anlamadım
Dim dosya As String
dosya = "C:\deneme.mde"
Call Shell "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE " & dosya , 1)
Önemli olan çözülmüş olmasıÇok teşekkür ederim