scrolling lable with table records[RESOLVED]

dim deltax as integer
Private Sub Form_Load()
t1.Interval = 1000
deltax = 1000
lbl1.left=8000
End Sub

Private Sub t1_Timer()

lbl1.Move lbl1.Left - deltax
If lbl1.Left < ScaleLeft Then lbl1.Left = 8000

End Sub

the above function moves the lable from right to left
i wanted to select all records from the table and display its first records specific field as that lables caption and when the lable comes to starting position the next reocrd should get display
till the form is active the procudure should conti. displaying records
can plese somebody guid me how to do this