Untested but something like this should work.
Code:
for $i=0 to ubound($aFruit)

    $aFruit[$i] = "'" + $aFruit[$i] + "'"

    $i = 1 + $i

next

$sFruit = join($aFruit,",")
_________________________
Home page: http://www.kixhelp.com/hb/