有关Sql Server 2000 dts包中的ActiveX脚本任务的问题

Set Pkg = DTSGlobalVariables.Parent

Function Main()
    myfilename=inputbox( \"Please enter the filename (ex. 2010Nov):\")    
    Set Pkg = DTSGlobalVariables.Parent
     DTSGlobalVariables(\"filename\").Value=myfilename
    Main = DTSTaskExecResult_Success
End Function