数组为什么出错啊?急!!1在线等~~~

我定义了一个数组getarray(),用来接受有select语句查询出的结果,但是运行是总、是报错说"其他信息: 索引超出了数组界限",但是我并没有规定数组的大小啊?

 Dim getarray() As String = New String() {}
 Dim  j, k As Integer
 k = 0

......'select语句

 For j = 0 To Ds1.disease.Count.ToString - 1
    getarray(k) = Ds1.disease.Item(j).dis_name.ToString()
    k = k + 1
 Next j
disease为表名,dis_name为表的一个字段
--------------------编程问答-------------------- Dim getarray() As String = New String() {}
    Dim j, k As Integer
    k = 0

    'select语句
    ReDim Preserve getarray(Ds1.disease.Count.ToString - 1)
    For j = 0 To Ds1.disease.Count.ToString - 1
        getarray(j) = Ds1.disease.Item(j).dis_name.ToString()
        k = k + 1       ' 这个k没有必要用吧
    Next j --------------------编程问答-------------------- ReDim一下数组，要不然它的UpperBound是-1 --------------------编程问答-------------------- 也可以使用动态数组啊
Dim getarray as New ArrayList
Dim j, k As Integer

For j = 0 To Ds1.disease.Count- 1
getarray.add( Ds1.disease.Item(j).dis_name.ToString())
Next j

补充：.NET技术 ,  VB.NET