Member Avatar for SaRa Ahmad 
If rs.State = adStateOpen Then rs.Close

   rs.Open "select Distinct ActvID where ProjectNo = '" & ProjectNo1 & " ' ", db, adOpenDynamic, adLockReadOnly
If Not rs.EOF Then rs.MoveLast
While Not rs.BOF
actvID.AddItem rs(0)
ActvID2.AddItem rs(0)
ActvID3.AddItem rs(0)
ActvIdA.AddItem rs(0) & "   " & rs(1)
ActvID2A.AddItem rs(0) & "   " & rs(1)
ActvID3A.AddItem rs(0) & "   " & rs(1)
ActUnit.AddItem rs(2)
rs.MovePrevious
Wend


Set rs = Nothing



i got this error Rowset does not support fetching backward.
  • 2 Contributors
  • 1 Reply
  • 208 Views
  • 16 Hours Discussion Span
  • Latest Post Latest Post by Klahr_R
Member Avatar for Klahr_R

Well, I don't know if it will help but some possibilities:
1. If your DB is empty
2. You have a Jet DB that won't support adOpenDynamic
3. Try adOpenKeyset to see if the problem goes away (Yes, I understand you won't have real time updates, but you might be able to learn more about the problem.)

Regards

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.