MSFlexGrid que repite registros

[harvestmoon]

hola que tal me atrevo a poner este post por q ya intente usar el loop de diferentes maneras con el until con ! con for incluso jeje pero me sigue apareciendo repeticiones en mi consulta osea tengo unMSFlexGrid y cuando hago la consulta me aparece 5 veces un mismo registro!! este es el codigo q tengo para recorror mi MSFlexGrid y agregar campos
Private Sub buscar()
Dim datatemp1
Dim r
r = 1
MSFlexGrid1.Clear
adorno
Do While Rs.EOF = False
MSFlexGrid1.AddItem ("")

Select Case Rs.Fields(2)
Case "A"
datatemp1 = "Individual"
Case "B"
datatemp1 = "Grupos"
End Select

If Val(r) Mod 2 = 0 Then
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(5)
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(0)
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 3
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(3)
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 4
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(1)
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 5
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & datatemp1
MSFlexGrid1.CellBackColor = &HE0E0E0
Else
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(5)
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(0)
MSFlexGrid1.Col = 3
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(3)
MSFlexGrid1.Col = 4
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & Rs.Fields(1)
MSFlexGrid1.Col = 5
MSFlexGrid1.Row = r
MSFlexGrid1.TexT = "" & datatemp1
End If


r = r + 1
Rs.MoveNext
Loop


If Val(r) Mod 2 = 0 Then
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = r
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = r
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 3
MSFlexGrid1.Row = r
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 4
MSFlexGrid1.Row = r
MSFlexGrid1.CellBackColor = &HE0E0E0
MSFlexGrid1.Col = 5
MSFlexGrid1.Row = r
MSFlexGrid1.CellBackColor = &HE0E0E0
End If

End Sub



ojala me puedaan ayudar a entender en q falla la logica gracias!!