Array Fill

[Tom]

Trying to fill a 2 dimensional array with fields from a dataset. Here's the
code:

Using rdr As DataTableReader = Me.ScoresDataSet.CreateDataReader()
Dim intDateOrdinal, intDiffOrdinal As Integer

Dim lng As Long = 0

Dim arDate() As String

intDateOrdinal = rdr.GetOrdinal("date")

intDiffOrdinal = rdr.GetOrdinal("Differential")

While rdr.Read()

'''''''''What goes here???????

End While

End Using

Any help is appreciated?

Thanks Tom

 

[Tom]

Correction:

Dim arDate() As String
should be
Dim arDate(,) As String