Simple coding(solved)

[vivian2u]

hi,

i want to display all the F_upDate which is greater or equal to today's date in the MSFlexGrid. Here is my coding, its only display one record only. Can someone help to modify it.


Dim today As String
today = Format$(Date, "dd/mm/yyyy")
With rs
.Open "Select * from tblDate where F_upDate >= '" & today & "' order by F_upDate desc", con, adOpenKeyset, adLockPessimistic

While Not rs.EOF()
MSFlexGrid1.AddItem rs!EnqNo & Chr(9) & rs!F_upDate & Chr(9) & rs!FirstName ................
rs.MoveNext
Wend


thanks