Convert Integer to String before Import to MS SQL with vbs

I have a csv file that gets generated nightly and I have a simple vbs script that imports the records from the csv into a table in MS SQL Server 2005 Express. This was working fine until my company started to use numbers for Salesman_ID the csv and vbs sees these files first and assumes that they are integers. I need to have these appear as a string value prior to import. I have the field set up in the SQL table as Text and have tried nchar(4), text and just about everything I can think of. I can get the import to function with the script below but the issue is the file exports with the integer based Salesman_ID export first and the Insert statement only brings them in all records come in but the string based Salesman_ID field is blank....I am stumped with this one. I have included the current code below...

Set conn = CreateObject("ADODB.Connection")
DBstring = "Provider=SQLNCLI;Server=.\SQLEXPRESS;Database=ComRep;Integrated Security=SSPI;Persist Security Info=True;" 
conn.Open DBstring	
 
sconnstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\gmcgifts\qcs_upload;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
Set objConn = CreateObject("ADODB.Connection")
     objConn.Open sConnString
          set rs=objConn.execute("SELECT * FROM [DPU893R_test.csv]")
		  
	    rs.MoveFirst
               While Not rs.EOF
		   
if RS.Fields.Item(3).Value = "ms" then
 
	if IsNull(RS.Fields.Item(17).Value) or RS.Fields.Item(17).Value = "" then
	
	REC_NAME = "NO Name"
	
	else
	
	REC_NAME = RS.Fields.Item(17).Value
	
	end if
	
	if IsNull(RS.Fields.Item(20).Value) or RS.Fields.Item(20).Value = "" then
	
	PROD_DESC = "NO Name"
	
	else
	
	PROD_DESC = RS.Fields.Item(20).Value
	
	end if
	
		REC_NAME = REPLACE(REC_NAME, "'","")
		PROD_DESC = REPLACE(PROD_DESC, "'","")
			  
		
  
  theSQL = "INSERT INTO ReleaseOrder"
  theSQL = theSQL &"(SLSM_NO, MAIL_NAME, COMM_CODE, ORD_NO, EARN_ORD_PRICE, EARN_SLSM_COST, EARN_COMM_AMT, ORD_TYPE, CUST_NO, DATE_ENTER, CUST_INV_DATE, WIP_CODE, "
  theSQL = theSQL &"PROG_ID, RLS_ORD_NO, CUST_NAME, SEQ, ITEM_NO, ITEM_DESC, COMM_PRICE_FL, STATUS)"
  theSQL = theSQL &"Values('"&RS.Fields.Item(0).value&"', '"&RS.Fields.Item(1).Value&"', '"&RS.Fields.Item(3).Value&"', '"&RS.Fields.Item(5).Value&"', '"&RS.Fields.Item(6).Value&"', '"&RS.Fields.Item(7).Value&"',"
  thesql = thesql &" '"&RS.Fields.Item(8).Value&"', '"&RS.Fields.Item(9).Value&"', '"&RS.Fields.Item(10).Value&"', '"&RS.Fields.Item(11).Value&"',"
  theSQL = theSQL &" '"&RS.Fields.Item(12).Value&"', '"&RS.Fields.Item(13).Value&"', '"&RS.Fields.Item(15).Value&"', '"&RS.Fields.Item(16).Value&"', '"&REC_NAME&"', '"&RS.Fields.Item(18).Value&"',"
  theSQL = theSQL &" '"&RS.Fields.Item(19).Value&"', '"&PROD_DESC&"', '"&RS.Fields.Item(21).Value&"', '"&RS.Fields.Item(25).Value&"')"
 
  conn.execute(theSQL)
  Set theSQL = Nothing
  
  
  end if
  		
  
  
   
 
 
rs.MoveNext
   Wend
 
 
msgbox("Complete")

Select allOpen in new window