Please help with page Fault

[Alabaster2100]

Have a simple program that receives a variable and launches the program passed as variable as well as opens an mdb. The Program works fine except I get "Launcher.exe caused an invalid page fault in module unknown". This happens on every computer except mine which I developed the program on. Can someone please shed some light on why this error occures and what I can do to fix it. Alternate solutions to my program are also welcome.

THanks

Souce of Module1:
Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9

Source of Form1:
Option Explicit

Private Sub Form_Load()
Dim sRunTimeParameters As String
sRunTimeParameters = Command$()
Dim intApp As Integer
Dim intAccess As Integer

intApp = ShellExecute(Me.hwnd, "Open", sRunTimeParameters, _
"", "", SW_MAXIMIZE)

intAccess = ShellExecute(Me.hwnd, "Open", "C:\Program Files\FlexSurvey\flexsurvey.mdb", _
"", "", SW_MAXIMIZE)

Unload Me
End Sub


Thanks
Peter