filter su recordset di data environment

[giko83]

Private Sub Command1_Click()


dbGestVille.rsstudio.Filter = "codicefiscale ='" & Me.Tag & "'"

dbGestVille.rsstudio.Requery

Dim i As Integer
i = 0
While i < dbGestVille.rsstudio.RecordCount

adtit dbGestVille.rsstudio("nome"), dbGestVille.rsstudio("votazione"), dbGestVille.rsstudio("data"), dbGestVille.rsstudio("presso")

'= dbGestVille.rsstudio("presso")
i = i + 1
MsgBox i
Wend


dbGestVille.rsstudio.Filter = ""
dbGestVille.rsstudio.Requery
End Sub

Private Sub adtit(a As String, b As String, c As String, d As String)
Dim buf As ListItem
Set buf = lststudio.ListItems.add
buf.Text = a 'dbGestVille.rsstudio("nome")
buf.SubItems(1) = b
buf.SubItems(2) = c
buf.SubItems(3) = d
End Sub



il prob è che non si ferma prima di 4 record anche se il risutlato dovrebbe essere 2 record