If i understand you well...
Try this:
for x=1 to 13
sql = sql & "s" & x & " + "
Next
sql = Left$(sql, Len(sql)-3)
sql = "select " & sql & " AS TOPLAM from students WHERE konu_id = 1;"
Set rs = server.createobject("adodb.recordset")
rs.Open sql, conn, 1, 3
Result:
select s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10 + s11 + s12 + s13 AS TOPLAM from students WHERE konu_id = 1;