Visual Basic - Problema con MSHFlexgrid y Recordset!!!!!!!!!!!!!

Tratare de ser lo mas claro con mi problema, ojala y alguien pueda ayudarme. Tengo una cnsulta parametrizada en access 2000 y le problema que tengo es que no se como ligar el resultado de esa consulta a un control MSHFlexGrid, bueno asi como le intenté, solo me da una fila. El nombre de la Consulta es Historial, y el campo (parametro) por el que se busca es {NumControl}. El codigo que tengo es el siguiente:

sBase = App.Path & "\labisc.mdb"
' Crear los objetos
Set cnnLabISC = New ADODB.Connection
cnnLabISC.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
Set cmd = New ADODB.Command
cmd.CommandText = "Historial"
cmd.CommandType = adCmdStoredProc
Set par = cmd.CreateParameter("NumControl")
par.Type = adChar: par.Size = 12: par.Direction = adParamInput
cmd.Parameters.Append par
par.Value = "96320395"
Set cmd.ActiveConnection = cnnLabISC
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
Set rs = cmd.Execute
Set MSHFlexgrid1.DataSource=rs

Tambien lo e intentado con la propiedad RecordSource del MSHFlexgrid y el resultado sigue siendo el mismo

creia que ese el resultado pero despues puse esto solo para verificar y si es el resultado que debe de ser:

Do While Not rs.EOF
With rs
Form1.Print .Fields(0) & Space(5) & .Fields(1) & Space(5) & .Fields(2) & Space(5) & .Fields(3)
.MoveNext
End With
Loop

ojala y alguien me pueda ayudar.

Por ahi te esto diciendo una barbaridad pero, No necesitas antes dimensionar al msflexgrid?
for s=1 to cantidad de filas
msflexgrid.AddItem"" 'lo lleno con blancos'
next
Un saludo