MSFlexGrid, ne pas afficher 0 d'une référence précise

Salut à tous !

J'ai un petit soucis sur ce bout de code en VB6 et sollicite votre intervention.

Dim SQ As String
Dim I As Integer

SQ = "SELECT Reference, Designation, Piece, SUM(ColisE - ColisS) AS Colis, SUM((ColisE - ColisS) * Piece) AS TotalG, DateFabrique, Lots FROM Tb_Mouvements "
SQ = SQ + " WHERE CDate(DateFabrique) BETWEEN CDate('" & T_DateDebut & "') AND CDate('" & T_DateFin & "') "
SQ = SQ + " AND Reference ='" & T_Ref.Text & "' "
SQ = SQ + " GROUP BY Reference, Designation, DateFabrique, Piece, Lots"

DataR.DatabaseName = App.Path & "\DataBase.mdb"
DataR.RecordSource = SQ
DataR.Refresh

    If Not (DataR.Recordset.BOF And DataR.Recordset.EOF) Then
    DataR.Recordset.MoveLast
    DataR.Recordset.MoveFirst
    Tablo.Rows = DataR.Recordset.RecordCount + 1
    I = 1
    Do While Not DataR.Recordset.EOF
    On Error Resume Next
If DataR.Recordset!TotalG <> 0 Then
    Tablo.TextMatrix(I, 0) = DataR.Recordset!Reference
    Tablo.TextMatrix(I, 1) = DataR.Recordset!Designation
    Tablo.TextMatrix(I, 2) = DataR.Recordset!Piece
    Tablo.TextMatrix(I, 3) = DataR.Recordset!Colis
    Tablo.TextMatrix(I, 4) = DataR.Recordset!TotalG
    Tablo.TextMatrix(I, 5) = DataR.Recordset!DateFabrique
    Tablo.TextMatrix(I, 6) = DataR.Recordset!Lots
    I = I + 1
End If
    DataR.Recordset.MoveNext
    Loop

DataR.Refresh
Else
Tablo.Rows = 1
End If

Mon problème se trouve ici :

If DataR.Recordset!TotalG <> 0 Then

Il m'affiche avec une ligne supplémentaire les référence voulue + 1 ligne de référence non voulue.

Avez-vous une petite idée svp ?

Merci