Help on Loop Option

[N_NAGESH]

My current problem is that I want to have a scrolling text in the form which indicates the 'Best team of the week'...I have a query for the this data
I am able to display only the first record (team) in the query and not all the records (teams) which qualifies for the best team according to the query...
I have used the following VB code... I need help...
Private Sub Form_Load()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim txtScrollText As String
Set db = CurrentDb()
Set rst = db.OpenRecordset("Query4", dbOpenDynaset)
rst.MoveNext
txtScrollText = rst!Team
' Text for Label on Form
Me.lblScrollingLabel.Caption = "Team of the week for week " & DatePart("WW", Now()) - 1 & " is " & txtScrollText & Space(100)
End Sub
Private Sub Form_Timer()
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
End Sub