Ayuda para llenar MSFlexgrid en VB6 con datos de MySQL

[Avellaneda]

¿Y qué error te manda? "Subíndice fuera de intervalo"?

¿Has verificado si el recordset arroja registros?

Cuando enlazas el Grid a un recordset no es necesario que le asignes ni el número de filas ni el de columnas (las toma automáticamente del recordset). Elimina estas líneas del código:

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

Y otra cosa, el error lo debería dar al abrir el recordset ya que en una consulta de agrupación debes especificar los campos, no vale poner Select *.

Si lo que quieres es mostrar todos los registros de una fecha, elimina la claúsula Group By:

RecSQL.Open "select * from reqs where req_date = '" & Form7.m1 & "'", BD, adOpenStatic, adLockOptimistic

Si dá error o no arroja registros, prueba a formatear la fecha como indiqué en el post anterior.

Un saludo.