ASP - AYUDA, PARA LLENAR UN ARRAY

Buen día

Tengo un problema , estoy usando una herramienta para generar graficos con ASP , para crear las categorias dentro del grafico estas se deben declarar dentro de un array que he llamado GRAFICO en el cual yo defino (MANUALMENTE) todas las categorias que necesito sin embargo ahora lo que quiero hacer es llenar ese array de forma automatica a partir de un query , por ejemplo aqui pueden ver que he definido 3 CATEGORIAS MANUALMENTE

Set chart= Server.CreateObject("SwiffChartObject.ChartObj.1")
chart.SetCategoriesFromString grafico
sep= ";"
grafico= MANZANAS & sep & PERAS & sep & NARANJAS

Ahora como le hago para que en lugar de escribir directamente sobre el codigo las categorias , estas se generen a partir de los resultados de un query???

me imagino que algo asi :

Set chart= Server.CreateObject("SwiffChartObject.ChartObj.1")
chart.SetCategoriesFromString grafico
sep= ";"
query="SELECT categorias FROM frutas"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open query, Conex
do while not RS.EOF
grafico () = RS.("")
rs.movenext
loop

POR FAVOR AYUDA
Y GRACIAS