Format Excel or CSV Header and Do Error Check VBScript

Set fs = CreateObject("Scripting.FileSystemObject")
' Set constants here___________________________________________'
myDelimeter = ","
myTextQualifier = """"	' Will put one double quote on each side of the field
myspace = "    "
myCurFilePath = "C:\Test\"	'Path where vbs script is located
strsource1 = "\\Server1\apps\Final\FINALReports\"	
myOutPutFileName = "ExtractResults.csv"'FileName of the import file
 
Const xlNormal = -4143
 
OdbcDSN = "DSN=Server5;UID=xxx;PWD=xxx" 
Set connect = CreateObject("ADODB.Connection")
connect.Open OdbcDSN
 
OdbcDSN2 = "DSN=Server5;UID=xxx;PWD=xxx" 
Set connect2 = CreateObject("ADODB.Connection")
 
'Select schools to extract___________________________________________'
SQL ="Select SCHOOLNUM,SchoolNameDistrict,Type from "
SQL = SQL & "SchoolErrorRecipients "
 
Set resultSet = connect.Execute(SQL)
If Not resultset.eof Then
	resultSet.MoveFirst
End If
tmpcount = 0
 
' LOOP FOR EACH SCHOOL RETURNED FROM SERVER INFO______'
Do While Not resultset.EOF
	connect2.Open OdbcDSN2
	o_Schoolnum= resultset("SCHOOLNUM")
	o_SchoolNameDistrict = resultset("SchoolNameDistrict")
	o_Type = resultset("Type")
 
	'DELETE EXISTING FOLDERS
	If fs.FolderExists(strSource1 & o_Type & o_Schoolnum & o_SchoolNameDistrict) Then
		fs.DeleteFolder(strSource1 & o_Type & o_Schoolnum & o_SchoolNameDistrict)
	End If
	 
	'CREATE FINALReports FOLDERS
	If fs.FolderExists(strSource1 & o_Type & o_Schoolnum & o_SchoolNameDistrict) then
		' Do Nothing
	Else
		fs.CreateFolder(strSource1 & o_Type & o_Schoolnum & o_SchoolNameDistrict)
	End If
	    
	strCSVFileName = strsource1 & o_Type & o_Schoolnum & o_SchoolNameDistrict & "\" & myOutPutFileName
	On Error Resume Next
	Set file = fs.OpenTextFile(strCSVFileName, 2, True)
	If Err.Number <> 0 Then
		MsgBox "Failed to create " & strCSVFileName
		Err.Clear
		On Error GoTo 0
	Else
		On Error GoTo 0
		file.WriteLine """SCHLNAME"",""CATEGORY"",""Messages"",""ERRORS"""
		'Get Student Information for current school
		SQL1 = "select SchoolNameDistrict,Category,Messages,Errors "
		SQL1 = SQL1 & "from "
		SQL1 = SQL1 & "FinalMasterExtract a, ErrorRecipients b "
		SQL1 = SQL1 & "where a.SCHOOLNUM=b.SCHOOLNUM and b.SCHOOLNUM = "& o_Schoolnum &" " 
		 
		Set resultSet2 = connect2.Execute(SQL1)
		If Not resultset2.eof Then
			resultSet2.MoveFirst
		End If
		 
		tmpcount2 = 0
		'INNER LOOP FOR EACH STUDENT AT CURRENT SCHOOL
		Do While Not resultset2.eof
			o_SchlName   = resultset2("SchoolNameDistrict")
			o_Category   = resultset2("Category")
			o_Messages   = resultset2("Messages")
			o_Errors     = resultset2("Errors")
		   
			' Write Student Info to File'
			'Use following 2 lines to put double quotes around each field
			file.Write myTextQualifier & o_SchlName  & myTextQualifier & myDelimeter _  
				& myTextQualifier & o_Category  & myTextQualifier & myDelimeter _
				& myTextQualifier & o_Messages  & myTextQualifier & myDelimeter _  
				& myTextQualifier & o_Errors    & myTextQualifier & myDelimeter & vbcrlf  
			resultset2.MoveNext
			tmpcount2 = tmpcount2 + 1
		Loop
		file.Close	
	
		strExcelFileName = Left(strCSVFileName, InStrRev(strCSVFileName, ".") - 1) & ".xls"
		Set objExcel = CreateObject("Excel.Application")
		Set objWB = objExcel.workbooks.open(strCSVFileName, False, False)
		objWB.Rows("1:1").Font.Bold = True
		objWB.SaveAs strExcelFileName, xlNormal
		objWB.Close False
		objExcel.Quit
	End If
 
	resultset.MoveNext
	tmpcount = tmpcount + 1
	connect2.Close
Loop
 
connect.Close
Set connect = Nothing

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103: