[AccessD] error in A2003

Hello Group,

the following code worked fine in A97. After conversion to A2003, the code itself doesn't give a compiling error, but the .bat that it is calling does give an error; the parameterisation isn't correct. When using the .bat file directly, it is working fine. 

Who can help.

Pedro Janssen




Option Compare Database
Option Explicit

Function label()

On Error GoTo label_Err

    Beep

    If MsgBox("Wilt U een testlabel printen?", vbYesNoCancel, "Testlabel") = vbYes Then

    Call Shell("c:\command.com /c c:\label2.bat", 2)

Else

    Exit Function

End If

label_Exit:

Exit Function


label_Err:

    MsgBox Error$

    Resume label_Exit


End Function