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

objConnection.Open SQLConnectingString 
	
objRecordSet.Open "SELECT * FROM nom", _
	objConnection, adOpenStatic, adLockOptimistic
	
	
Do Until objTextFile.AtEndOfStream
	strNextLine = objTextFile.Readline
	arrServiceList = Split(strNextLine , ",")

		objRecordSet.AddNew
                          '...
		objRecordSet("price") 	= !!???? trim(arrServiceList( 3 ))
		objRecordSet.Update

Loop