Totales en un mshflexgrid

Hola. Tengo un problema expertos...

Tengo una base de datos en mysql y lo tengo con una conexión con visual basic 6.0, tengo un formulario y en ello contiene un mshflexgrid, dos maskedbox uno de fecha inicial y el otro final, en la base de datos tengo un kardex en donde guarda varios movimientos a de productos pero yo quiero que al consultar las fechas me de un solo nombre del producto y el total de veces que se uso estoy usando el código siguiente.

Listado.Clear
Listado.Rows = 0: Listado.Cols = 5: Listado.FixedCols = 0
Listado.ColWidth(0) = 0: Listado.ColWidth(1) = 860
Listado.ColWidth(2) = 6180: Listado.ColWidth(3) = 6000
Listado.ColWidth(3) = 1500
If txtbodega.Text = "" Then
MsgBox "Ingrese el ID de la Bodega", vbExclamation, "Bodegas"
txtidbodega.Text = "": txtbodega.Text = "": txtidbodega.SetFocus
ElseIf txtidbodega.Text = "" Then
MsgBox "Ingrese el Id de la Bodega", vbExclamation, "Bodegas"
txtidbodega.Text = "": txtbodega.Text = "": txtidbodega.SetFocus
Else
rs3.Open "SELECT fecha,código,descrip,prove,bodega FROM kardex WHERE fecha BETWEEN '" & _
txtfechai & "' and '" & txtfechaf & "' and bodega ='" & txtidbodega & "' ORDER BY descrip", cnn, adOpenDynamic, adLockBatchOptimistic
With rs3
If (.BOF And .EOF) Then
End If
Do While .EOF = False
Listado.AddItem .Fields(0) & vbTab & .Fields(1) & vbTab & .Fields(2) & vbTab & .Fields(3) & vbTab & .Fields(4)
.MoveNext
Loop
If .State = 1 Then .Close
End With
End If
Dim i As Integer
For i = 0 To Listado.Rows - 1
Listado.TextMatrix(i, 0) = Format(Listado.TextMatrix(i, 0), "dd/mm/yyyy")
Next i

Si me pudieran ayudar

Gracias.