Visual Basic - Ayuda para cargar una Grilla (MSHFlexGrid)

Private Sub Command1_Click(Index As Integer)

Select Case Index

'Case 3

    'SELECT * FROM tabla WHERE columna LIKE 'letra%';

'    If Text2.Text <> "" Then

  '      Dim Codigo As Integer

   '     Dim Provincia As String

    '    Codigo = Text1.Text

     '   Provincia = Text2.Text

      '  Dim Ssql As String

       ' Dim ADORES As ADODB.Recordset

        'Set ADORES = New ADODB.Recordset

'        Ssql = "Select * From Provincias where Prov_Codigo Like '" & Provincia & "%'"

 '       ADORES.Open Ssql, DBase, adOpenStatic

  '      If ADORES.RecordCount < 1 Then

   '         MsgBox "No hay provincias con esos terminos"

    '    Else

     '       Aca se deberia de cargar la grilla

    '    End If

'    End If

Case 4

    Provincia.Hide

    Set Provincia = Nothing

    Agencia.Show

    For i = 0 To 3 Step 1

        Command1(i).Visible = False

    Next

End Select

'Text1.Text = ""

'Text2.Text = ""

'Grilla.Visible = False

End Sub

'En la llamada del Boton 

STRSQL =  'SELECT * FROM tabla WHERE columna LIKE 'letra%';

call  llenagridGeneric (Grilla,STRSQL)

Sub llenagridGeneric(MSf As MSFlexGrid, sql As String)

On Error GoTo etterro

cont = 0

MSf.Clear

MSf.Cols = 2

MSf.Rows = 2

'MsgBox SQL  ' Por si deseas ver el sql antes de ejecutarlo

Rsio.Open sql, conexion

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

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

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

    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

    datafile = datafile & Rsio.Fields(j).Name & vbTab

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

     j = j + 1

   Wend

    While Not Rsio.EOF

        i = i + 1

        MSf.Rows = i

        k = 0

        While k < j

            MSf.TextMatrix(i - 1, k) = "" & Rsio(k)

            datafile = datafile & Rsio(k) & vbTab

            k = k + 1

        Wend

        datafile = datafile & vbCr

        Rsio.MoveNext 'aumenta el contador

    Wend

       Rsio.Close

etterro:

If Err.Number <> 0 Then MsgBox Err.Description

End Sub