Summarization Script

The problem is that with a summarization you need to list the fields that you want summarized.  In your first part you are summarizing the CREDIT_LIM field but in the second part you have the task.IncludeAllFields that doesn't work here.  You need to specifiy the fields from the filename variable that you want to summarize by adding them with the task.AddFieldToSummarize function, same as you did in the first part.  The task.AddFieldToSummarize could have a variable to hold the fieldname.  Here is an example from my Bendord 1st digit test, you can see I am using the task.AddFieldToSummarize with a variable that relates to the file from the step1FileName variable, so I have a variable that holds the filename and then variable(s) to hold the fields related to that file that I want to summarize: 

'****************************************************************************************************
'	Name:		step3
'	Description:	Routine to summarize based on the client field
'	Accepts:		Nothing
'	Returns:		Nothing
'****************************************************************************************************
Function step3() 'summarize based on the client field

	Dim db As database
	Dim task As task
	Dim dbName As String
	Dim i As Integer

	Set db = Client.OpenDatabase(step1FileName)
		Set task = db.Summarization
			task.AddFieldToSummarize clientField
			task.AddFieldToSummarize first_digit_field 
			
			If Not IsVarArrayEmpty(tempListbox2) Then
				For i = 1 To UBound(tempListbox2)
					If tempListbox2(i) <> clientField  And tempListbox2(i) <> amountField  Then
						task.AddFieldToInc tempListbox2(i)
					End If 
				Next i
			End If
			dbName = Client.UniqueFileName("Step 3") 
			task.OutputDBName = dbName
			task.CreatePercentField = FALSE
			task.StatisticsToInclude = SM_COUNT
			task.PerformTask
		Set task = Nothing
	Set db = Nothing


End Function