Excel kalder en Access app

I en Excel app har jeg en dblClick event der kalder en Access app vor der tilgås en form
Det fejler. DIM giver fejl !!!!!!!
Kan i hjælpe

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim strPath As String, stAppName As String    <Giver fejl !!!!
strPath = CurrentProject.Path
  stAppName = strPath & "\(Access App Navn)"

  With CreateObject("Access.Application")
                .Application.DoCmd.OpenForm (stAppName)
              ..Run "setvars", 2, Nz(xxxx, 0)
              .Visible = True
              .Application.Run "Macro1"           
      End With
end sub