Sub delpath()

Dim dbinputC As String

dbinputC = "[" & Application.CurrentProject.Path & "CUSTOMER.accdb" & "]"

DoCmd.RunSQL "DELETE pathway FROM " & dbinputC & ".SPECPATH (WHERE pathway <> Null);"

End Sub

Dim dbinputC As String

dbinputC = "'" & Application.CurrentProject.Path & "CUSTOMER.accdb" & "'"
DoCmd.RunSQL "DELETE pathway FROM SPECPATH (WHERE pathway <> Null) IN " & dbinputC & ";"