[أبو عبدالله الحلواني]

الحمد لله تم الوصول للحل 
الكود كان يعمل طوال الوقت ولكن يبدو أني مع تأخري بالعمل كنت قد هنجت   فلم ألحظ أني أدخل كلمة المرور بشكل خاطئ
الحمد لله هذا هو الكود الصحيح:

كود :

   Public Sub CretAndOpen(ByVal Strpath As String)
       On Error GoTo ErrLine
       Dim AccessApp As Object
       AccessApp = CreateObject("Access.Application")

       With AccessApp
           .AutomationSecurity = 1
           .Visible = False
           .RunCommand(10)
           .OpenCurrentDatabase(filepath:=Strpath, bstrPassword:="Put Here YouerPassword")
           .runcommand(10)
       End With
       Application.Exit()
ErrLine:
       If Err.Number <> 0 Then
           MsgBox("Sorry! i can't open: mybe the program path chinged or it not found!", MsgBoxStyle.Critical, "Can't open!")
           Application.Exit()
       End If
   End Sub