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

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.