咨询下，我这语句，需要怎么修改么？

klugwcb

Option Explicit
Function action
Dim Systime,TWtemp,TWtemp1,TWtemp2,TWtemp3,TWtemp4,TWtemp5,TWtemp6,TWtemp7,TWtemp8,TWtemp9,TWtemp10,TWtemp11,TWtemp12,TWtemp13,TWtemp14,TWtemp15,TWtemp16,TWtemp17,TWtemp18,TWtemp19,TWtemp20,TWtemp21,TWtemp22,TWtemp23,TWtemp24,TWtemp25,TWtemp26,TWtemp27,TWtemp28,TWtemp29,TWtemp30,TWtemp31,TWtemp32,TWtemp33,TWtemp34
Dim strcn,conn,rs,sSQLString,sSQLString1,oCom,sSQLString2
Dim oRs,oConn,paraType,user
If  HMIRuntime.Tags("Oven_EC_SeqStart_Oven_I_Auto_Ready").Read=0 Then
Exit Function  
End  If
paraType="OV_EC_14"
user="开线"
TWtemp=HMIRuntime.Tags("Ov_EC_Temp_Zone1_Return_Out_Real").Read
TWtemp1=HMIRuntime.Tags("Ov_EC_Temp_Zone1_Supply_Out_Real").Read
TWtemp2=HMIRuntime.Tags("Ov_EC_Temp_Zone2_Return_Out_Real").Read
TWtemp3=HMIRuntime.Tags("Ov_EC_Temp_Zone2_Supply_Out_Real").Read
TWtemp4=HMIRuntime.Tags("Ov_EC_Temp_Zone3_Return_Out_Real").Read
TWtemp5=HMIRuntime.Tags("Ov_EC_Temp_Zone3_Supply_Out_Real").Read
TWtemp6=HMIRuntime.Tags("Ov_EC_Temp_Zone4_Return_Out_Real").Read
TWtemp7=HMIRuntime.Tags("Ov_EC_Temp_Zone4_Supply_Out_Real").Read
TWtemp8=HMIRuntime.Tags("Ov_EC_Temp_Zone5_Return_Out_Real").Read
TWtemp9=HMIRuntime.Tags("Ov_EC_Temp_Zone5_Supply_Out_Real").Read
TWtemp10=HMIRuntime.Tags("Ov_EC_Temp_Zone6_Return_Out_Real").Read
TWtemp11=HMIRuntime.Tags("Ov_EC_Temp_Zone6_Supply_Out_Real").Read
TWtemp12=HMIRuntime.Tags("Ov_EC_Temp_Zone7_Return_Out_Real").Read
TWtemp13=HMIRuntime.Tags("Ov_EC_Temp_Zone7_Supply_Out_Real").Read
TWtemp14=HMIRuntime.Tags("Ov_EC_Temp_Cooler_Ruturn_2_Out_Real").Read
TWtemp15=HMIRuntime.Tags("Ov_EC_Temp_Cooler_Ruturn_Out_Real").Read
TWtemp16=HMIRuntime.Tags("Ov_EC_Temp_Cooler_Supply_Out_Real").Read
TWtemp17=HMIRuntime.Tags("Ov_EC_Temp_FreshAir_Out_Real").Read
TWtemp18=HMIRuntime.Tags("Ov_EC_SmokeTemp_AfterExchange_Out_Real").Read
TWtemp19=HMIRuntime.Tags("Ov_EC_SmokeTemp_BoferExchange_Out_Real").Read
TWtemp20=HMIRuntime.Tags("Ov_EC_Temp_FreshAir_Mix_Out_Real").Read
TWtemp21=HMIRuntime.Tags("Ov_EC_PID_Zone1_Temp_LMN").Read
TWtemp22=HMIRuntime.Tags("Ov_EC_PID_Zone2_Temp_LMN").Read
TWtemp23=HMIRuntime.Tags("Ov_EC_PID_Zone3_Temp_LMN").Read
TWtemp24=HMIRuntime.Tags("Ov_EC_PID_Zone4_Temp_LMN").Read
TWtemp25=HMIRuntime.Tags("Ov_EC_PID_Zone5_Temp_LMN").Read
TWtemp26=HMIRuntime.Tags("Ov_EC_PID_Zone6_Temp_LMN").Read
TWtemp27=HMIRuntime.Tags("Ov_EC_PID_Zone7_Temp_LMN").Read
TWtemp28=HMIRuntime.Tags("Ov_EC_PID_Cooler_Temp_LMN").Read
TWtemp29=HMIRuntime.Tags("Ov_EC_PID_FreshAir_Temp_LMN").Read
TWtemp30=HMIRuntime.Tags("Ov_EC_Output_Zone1_YV01_ECack").Read
TWtemp31=HMIRuntime.Tags("Ov_EC_Output_Zone2_YV02_ECack").Read
TWtemp32=HMIRuntime.Tags("Ov_EC_Output_Zone3_YV03_ECack").Read
TWtemp33=HMIRuntime.Tags("Ov_EC_Output_Zone4_YV04_ECack").Read
TWtemp34=HMIRuntime.Tags("Ov_EC_Output_FreshAir_YV05_ECack").Read

strcn = "Driver={SQL Server};Server=192.168.21.14;uid=sa;pwd=Scivic2018;database=trend"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = strcn
conn.Open

sSQLString = "insert into Record(fkiParaID,sUser,fparaValue,fparaValue1,fparaValue2,fparaValue3,fparaValue4,fparaValue5,fparaValue6,fparaValue7,fparaValue8,fparaValue9,fparaValue10,fparaValue11,fparaValue12,fparaValue13,fparaValue14,fparaValue15,fparaValue16,fparaValue17,fparaValue18,fparaValue19,fparaValue20,fparaValue21,fparaValue22,fparaValue23,fparaValue24,fparaValue25,fparaValue26,fparaValue27,fparaValue28,fparaValue29,fparaValue30,fparaValue31,fparaValue32,fparaValue33,fparaValue34)"

sSQLString1= "values('" & paraType & "','" & user & "','" & TWtemp & "','" & TWtemp1 & "','" & TWtemp2 & "','" & TWtemp3 & "','" & TWtemp4 & "','" & TWtemp5 & "','" & TWtemp6 & "','" & TWtemp7 & "','" & TWtemp8 & "','" & TWtemp9 & "','" & TWtemp10 & "','" & TWtemp11 & "','" & TWtemp12 & "','" & TWtemp13 & "','" & TWtemp14 & "','" & TWtemp15 & "','" & TWtemp16 & "','" & TWtemp17 & "','" & TWtemp18 & "','" & TWtemp19 & "','" & TWtemp20 & "','" & TWtemp21 & "','" & TWtemp22 & "','" & TWtemp23 & "','" & TWtemp24 & "','" & TWtemp25 & "','" & TWtemp26 & "','" & TWtemp27 & "','" & TWtemp28 & "','" & TWtemp29 & "','" & TWtemp30 & "','" & TWtemp31 & "','" & TWtemp32 & "','" & TWtemp33 & "','" & TWtemp34 & "')"

sSQLString2=sSQLString&sSQLString1

conn.execute sSQLString2
    conn.close
    Set conn=Nothing

End Function