Does anyone have a simple AddQuery Code that I would be able to use?
My suggestion would be to go look it up, try to figure out how it works, and then you will have learned something. After you have done all of that you will have an idea of what's going on and if you are still stuck you can elaborate with people on the subject, not just ask for free information.
BTW, this was not meant as a flame/insult/etc...
I assume you are referring to a Queue which is the exact opposite of a Stack. Stack is LIFO (Last In First Out) and Queue is FIFO (First In First Out)
CQueue
Dim Queue As Collection
Public Sub Class_Initialize()
Set Queue = new Collection
End Sub
Public Sub Enqueue(ByVal value As Variant)
Queue .Add value
End Sub
Public Function Dequeue() As Variant
Dequeue = Queue .Item(1)
Queue .Remove 1
End Function
Public Function Peek() As Variant
Peek = Queue .Item(1)
End Function
Public Function Count() As Long
Count = Queue .Count
End Function
Public Sub Clear()
Set Queue = New Collection
End Sub
Public Sub Class_Terminate()
Set Queue = Nothing
End Sub
Enjoy!
Ok I'll try that im in PEi right now ^.^