Visual Basic.NET - Como llenar un array don un DataReader

 ' Al nivel global del Form o del Module

    Dim MiArray(100, 2) As String   ' Para 101 lineas con 3 columnaq (Indicios lineas de 0 a 100, indicios columnas de 0 a 3)

'En un procedimiento

        ' ... ... ...

        MaCommande.CommandText = "SELECT ............

        Dim MisPersonnas As OleDbDataReader

        MisPersonnas = MaCommande.ExecuteReader()

        Dim Linea As Integer = 0

        Do While MisPersonnas.Read          '

            MiArray(Linea, 0) = MisPersonnas.Item(0)

            MiArray(Linea, 1) = MisPersonnas.Item(1)

            MiArray(Linea, 2) = MisPersonnas.Item(2)

            Linea += 1

        Loop

  ' ... ... ...

Private Sub MostrarMiArray()

    For L As Integer = 0 To MiArray.GetLength(0)

        If MiArray(L, 0) = String.Empty Then Exit For

        MessageBox.Show(MiArray(L, 0) & "  " & MiArray(L, 1) & "  " & MiArray(L, 2))

    Next

End Sub