Set objRs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select abc from [data]"
Set objRs = objConn.Execute(strSQL)
Do While Not objRs.Eof
if Word = "" then
Word = objRs(0)
else
Word = Word & "," & objRs(0)
end if
objRs.MoveNext
Loop
Response.Write Word