microsoft office access can't open the database because it is missing

Sub PullMembershipUpdate(MyMail As MailItem)

  Dim path As String

  On Error Resume Next 'temporary error handling
  Set objAccess = GetObject(, "Access.Application")

    If Err <> 0 Then 'no existing instances of Access
      Set objAccess = CreateObject("Access.Application")
    End If

    On Error GoTo PullMembershipUpdate_ErrHandler 'normal error handler
    'ShowAccess Instance:=objAccess, Size:=SW_MAXIMIZE
    With objAccess
      path = "M:\Sams_Membership\Database\Blitz2008.mdb"
      If .DBEngine.Workspaces(0).Databases.Count = 0 Then
         .OpenCurrentDatabase FilePath:=path
      ElseIf LCase(Right(.CurrentDb.Name, Len("Blitz2008.mdb"))) _
          <> "Blitz2008.mdb" Then
         .CloseCurrentDatabase
         .OpenCurrentDatabase FilePath:=path
      End If
      .DoCmd.OpenForm FormName:="Update/EMail"
      .Forms("Update/Email").SetFocus
      
      If Date <= "10/17/2008" Then
      .Forms("Update/Email").GoalDate = "10/17/2008"
      Else
      .Forms("Update/Email").GoalDate = Format(Date, "mm/dd/yyyy")
      End If
    End With
    'Access.Forms("Update/Email").Command0
    
    'objAccess.Forms("Update/Email").RunUpdateButton.Click
    Access.Application.DoCmd.RunMacro ("RunUpdate")
    'Access.Application.CurrentDb.Name
    'Call BuildTreoFriendlyFeed
    Access.Application.Run ("BuildTreoFriendlyFeed")
        
Exit Sub

PullMembershipUpdate_ErrHandler:
  MsgBox Error$(), , "Open Database"
End Sub

Select allOpen in new window