又来麻烦大家了

我编写了一段查询语句，总是输出不全，请大家帮忙，如下：
dim projet
projet=J440305500///J440305510///J440305520///J440305530///J440305540

如果每个数据的前9位代表不同单位
J440305500：西瓜
J440305510：苹果
J440305520：西红柿
J440305530：李子
J440305540：桃子
现在要将projet入数据库检索，查询完按照序号、编号、名称的格式输出，库内有的水果字的颜色为黑色，如果没有为红色，
我目前利用sql、split、for next和1维数组将序号和编号的显示以及颜色的不同完成了，但总是无法将名称显示全，即总是显示桃子，以上各项的名称均为空，
不知如何实现？？多谢指导


序  号         编  号         名   称
  1         J440305500           西瓜
  2         J440305510           苹果
  3         J440305520           西红柿
  4         J440305530           李子
  5         J440305540           桃子