Ayuda para llenar MSFlexgrid en VB6 con datos de MySQL

[Kitty_05]

Les mando mi codigo, me manda error, cuando voy a llenar el grid... o sino cuando aparece sale vacio y los encabezados los coloca como datos del grid y no como encabezados

Código:

Dim BD As ADODB.Connection
Dim RecSQL As ADODB.Recordset


Set BD = CONECTAR()


Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from reqs where req_date = '" & Form7.m1 & "' group by req_id ", BD, adOpenStatic, adLockOptimistic

columnas = RecSQL.Fields.Count
filas = RecSQL.RecordCount
Me.MSHFlexGrid1.Cols = columnas
Me.MSHFlexGrid1.Rows = filas

Set Me.MSHFlexGrid1.DataSource = RecSQL
Me.MSHFlexGrid1.TextMatrix(0, 1) = "No. de Requisición" ' me manda error aki
Me.MSHFlexGrid1.TextMatrix(0, 4) = "Costo Total"
Me.MSHFlexGrid1.TextMatrix(0, 5) = "Fecha de Creación"
Me.MSHFlexGrid1.TextMatrix(0, 6) = "Estado"
Me.MSHFlexGrid1.TextMatrix(0, 7) = "Creado por"
Me.MSHFlexGrid1.TextMatrix(0, 11) = "Dirección"
Me.MSHFlexGrid1.TextMatrix(0, 12) = "Gerencia"
Me.MSHFlexGrid1.TextMatrix(0, 13) = "Site"
'Me.MSHFlexGrid1.RowHeight(1) = 0
Me.MSHFlexGrid1.ColWidth(1) = 1600
Me.MSHFlexGrid1.ColWidth(2) = 0
Me.MSHFlexGrid1.ColWidth(3) = 0
Me.MSHFlexGrid1.ColWidth(4) = 1000
Me.MSHFlexGrid1.ColWidth(5) = 1500
Me.MSHFlexGrid1.ColWidth(7) = 1250
Me.MSHFlexGrid1.ColWidth(8) = 0
Me.MSHFlexGrid1.ColWidth(9) = 0
Me.MSHFlexGrid1.ColWidth(10) = 0
Me.MSHFlexGrid1.ColWidth(11) = 2000
Me.MSHFlexGrid1.ColWidth(12) = 1600
Me.MSHFlexGrid1.ColWidth(13) = 1000