Try adding message boxes to the code to try to debug it, like...

For Each fsoFile in fsoFolder.Files

     if fsoFile.Name <> "Dummy.txt" then

          sFileName = sFolder & fsoFile.Name

          MsgBox sFileName &...

Alternatively, you can right-click on the object, choose Workflow | Workflow Properties and then select the Options tab.  It will show you what the name of the object is here...

Whenever I run it I get...  11/30/2005

but this may be due to system settings.  I'm sure you can format it however you want it. 

You can force the YYYY/MM/DD format...

Within an ActiveX Script, you can use the following to set a global variable with the current date...

DTSGlobalVariables("myDate").Value = Date

If you mean you need an additional column, or field, that contains the key at the end of each row, use the following...

SELECT *, 'your text for the key...

How are you creating the csv file and what is it being used for?  The first thing that came to mind here is possibly add the last line you want...

Even though the UNION will work for this, I suspect this is for informational purposes only for the end-user and the presentation layer is really the place to add these...

Using UNION was exactly what I was thinking for this as AKS suggests, just keep in mind that for a UNION to work, you must have the same number of...

Select

     Yr,

     (Case 

        When Ag <=20 Then '1-20'

        When (Ag >=21 AND Ag <= 55) Then '21-55'

        When Age >=56 Then '56+'

        End) as Grp,

     Sum(Total) as Total

From...

Just a thought, can you get it to run correctly in Query Analyzer?

You might try adding an ActiveX Script object to the DTS and using FSO (FileSystemObject) like below...

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso.GetFile("yourfile.xls")

fileObject.Delete

Set fileObject =...

You might try adding:

SET NOCOUNT ON

SET ANSI_WARNINGS OFF

to the stored proc.

See BOL for additional SET options

Yeah, this is the best forum that I've seen.  Quick responses and knowledgeable people = nice solutions.

On further inspection, you will probably have to set these values on the load event of the form like...

Private Sub Form_Load()

    Text1.Value = 0

    Text2.Value = 0

End Sub

Default all the text boxes that are not calculated to 0