VBS to query MIIS SQL for user profile that have special character

Const adOpenStatic = 3
Const adLockOptimistic = 3

Dim inFile, outFile
Dim fso
Dim listFile
Dim fName
Dim objConnection, objRecordSet, SQLStr, SQLStr_EmployeeID
Dim str

str = ""
inFile="D:\Appl\SharePoint\Scripts\CheckSpecialChar\" & year(date) & month(date) & day(date) & ".txt"
outFile="D:\Appl\SharePoint\Scripts\CheckSpecialChar\Profile.csv"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(outFile,True)

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

' Set up Connection to Prod MIIS SQL
objConnection.Open "Provider=SQLOLEDB;Data Source=usinfodirdb.;Initial Catalog=CS_Identity;User ID=;Password=;"
SQLStr = "SELECT * FROM [CS_Identity].[dbo].[v_Identities_Active] "

' Read employeeID from File
Set fso = CreateObject("Scripting.FileSystemObject")
Set listFile = fso.OpenTextFile(inFile)

objFile.WriteLine "EmployeeID," _
 & "adDomainName," _
 & "adSAMAccountName," _
 & "givenName," _
 & "KnownAsGivenName," _
 & "sn," _
 & "KnownAsLastName," _
 & "DisplayName," _
 & "department," _
 & "title," _
 & "WorkRole," _
 & "ExtTeleCountryCode," _
 & "ExtTelAreaCode," _
 & "ExtTelInlandPrefix," _
 & "ExtTelLocalNo," _
 & "MobTelPrefix," _
 & "MobTelNo," _
 & "ExtFaxAreaCode," _
 & "ExtFaxLocalNo," _
 & "IntFaxLocalNo," _
 & "IntFaxNumber," _
 & "IntFaxPrefix," _
 & "IntTelLocalNo," _
 & "IntTelNumber," _
 & "IntTelPrefix," _
 & "Responsibilities," _
 & "Skills," _
 & "Interests," _
 & "mail," _
 & "mailAddress," _
 & "co," _
 & "company," _
 & "personalTitle," _
 & "departmentNumber," _
 & "c," _
 & "ManagerID," _
 & "managerFullName," _
 & "LineManagerID," _
 & "LineManagerName," _
 & "IsLineManager," _
 & "SecretaryEmplID," _
 & "ou," _
 & "l," _
 & "postalAddress," _
 & "StringSID"

do while not listFile.AtEndOfStream
    fName =  listFile.ReadLine()
    SQLStr_EmployeeID = SQLStr & "where employeeID = '" & fName & "'"
    objRecordSet.Open SQLStr_EmployeeID, objConnection, adOpenStatic, adLockOptimistic
    str =  objRecordSet("EmployeeID") & ",""" _
 & objRecordSet("adDomainName") & """,""" _
 & objRecordSet("adSAMAccountName") & """,""" _
 & objRecordSet("givenName") & """,""" _
 & objRecordSet("KnownAsGivenName") & """,""" _
 & objRecordSet("sn") &  """,""" _
 & objRecordSet("KnownAsLastName") & """,""" _
 & objRecordSet("DisplayName") & """,""" _
 & objRecordSet("department") & """,""" _
 & objRecordSet("title") & """,""" _
 & objRecordSet("WorkRole") & """,""" _
 & objRecordSet("ExtTeleCountryCode") & """,""" _
 & objRecordSet("ExtTelAreaCode") & """,""" _
 & objRecordSet("ExtTelInlandPrefix") & """,""" _
 & objRecordSet("ExtTelLocalNo") & """,""" _
 & objRecordSet("MobTelPrefix") & """,""" _
 & objRecordSet("MobTelNo") & """,""" _
 & objRecordSet("ExtFaxAreaCode") & """,""" _
 & objRecordSet("ExtFaxLocalNo") & """,""" _
 & objRecordSet("IntFaxLocalNo") & """,""" _
 & objRecordSet("IntFaxNumber") & """,""" _
 & objRecordSet("IntFaxPrefix") & """,""" _
 & objRecordSet("IntTelLocalNo") & """,""" _
 & objRecordSet("IntTelNumber") & """,""" _
 & objRecordSet("IntTelPrefix") & """,""" _
 & objRecordSet("Responsibilities") & """,""" _
 & objRecordSet("Skills") & """,""" _
 & objRecordSet("Interests") & """,""" _
 & objRecordSet("mail") & """,""" _
 & objRecordSet("mailAddress") & """,""" _
 & objRecordSet("co") & """,""" _
 & objRecordSet("company") & """,""" _
 & objRecordSet("personalTitle") & """,""" _
 & objRecordSet("departmentNumber") & """,""" _
 & objRecordSet("c") & """,""" _
 & objRecordSet("ManagerID") & """,""" _
 & objRecordSet("managerFullName") & """,""" _
 & objRecordSet("LineManagerID") & """,""" _
 & objRecordSet("LineManagerName") & """,""" _
 & objRecordSet("IsLineManager") & """,""" _
 & objRecordSet("SecretaryEmplID") & """,""" _
 & objRecordSet("ou") & """,""" _
 & objRecordSet("l") & """,""" _
 & objRecordSet("postalAddress") & """,""" _
 & objRecordSet("StringSID")& """"

     objFile.WriteLine str  
    objRecordSet.Close
loop