Ayuda para llenar MSFlexgrid en VB6 con datos de MySQL

[Kitty_05]

Amigos me pueden ayudar con esta sentencia, es la q usare para llenar el grid..

Código:

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

me manda error en el where :(