Visual Basic - Ayuda Array con SQL

Sub llenaGridRsx(Msf As MSFlexGrid, rsio As Recordset)

'Limpio el msfgrid

Msf.Clear

Msf.Cols = 2

Msf.Rows = 2

'****si no hay resultados ********

    If rsio.EOF = True And rsio.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta"

    rsio.Close

    Exit Sub

    End If

'salgo del sub

'**********************************

Dim i, j, k As Integer

   'Rs.Open SQL, conexion

   Msf.Cols = rsio.Fields.Count '+ 1

   Msf.Clear

   j = 0

   While j < Val(Msf.Cols)

    Msf.TextMatrix(0, j) = rsio.Fields(j).Name 'da el nombre del select

    Msf.ColWidth(j) = 2000 ' para dar un correcto ancho

     j = j + 1

   Wend

    i = 1

    k = 0

    While Not rsio.EOF

        i = i + 1

        Msf.Rows = i

        k = 0

        While k < j

            Msf.TextMatrix(i - 1, k) = "" & rsio(k) 'Evitar el mal uso del null

            k = k + 1

        Wend

        rsio.MoveNext 'aumenta el contador

    Wend

       rsio.Close

End Sub