SaRa Ahmad 0 Junior Poster in Training
'=======================================================================================================
If rs.State = adStateOpen Then rs.Close
    rs.Open "select ActvID from activity_id where ProjectNo = '" & ProjectNo1 & " ' ", db, adOpenDynamic, adLockReadOnly
If Not rs.EOF Then rs.MoveLast
While Not rs.BOF
ActvID.AddItem rs(0)
rs.MovePrevious
Wend
Set rs = Nothing

i need to add items without using While plz