Dim i As Integer Dim listHolder As Integer Dim listTotal As Integer Dim commandNo As Boolean Dim Storage(0 To 50) As String Dim NoQDM As Integer Dim NoQOM As Integer Dim NoProd As Integer Dim NoListOther As Integer NoQDM = QDM.ListCount NoQOM = QOM.ListCount NoProd = Prod.ListCount NoListOther = ListOther.ListCount listTotal = QDM.ListCount + QOM.ListCount + Prod.ListCount + ListOther.ListCount For listHolder = 0 To listHolder = NoQDM QDM.SetFocus Storage(listHolder) = QDM.RowSource Next For listHolder = NoQDM + 1 To listHolder = NoQOM Storage(listHolder) = QOM(listHolder).Value Next For listHolder = NoQOM + 1 To listHolder = NoProd Storage(listHolder) = Prod(listHolder).Value Next For listHolder = NoProd + 1 To listHolder = NoListOther Storage(listHolder) = ListOther(listHolder).Value Next For i = 0 To listTotal CombiningBox.AddItem (Storage(i)) Next

Now, I'm really confused, because it's not just putting out one SQL statement once. It's putting out the same SQL statement in the listbox over and over and over again. Like a solid 10 or so times with large amounts of space in between.

SELECT [List Box].Cat [List Box].[KPI#] [List Box].KPI FROM [List Box] WHERE (([List Box]!Cat="Q - D")) ORDER BY [List Box].[KPI#]

Is there something I'm doing wrong that I just can't see?

Thanks!