RS.FindFirst "[" & Me.CategTxtBx & "]='" & Me.SCSearch & "'" If Not RS.NoMatch Then Call ListData 'displays the data on listbox row after row End If Do While Not RS.NoMatch RS.FindNext "[" & Me.CategTxtBx & "]='" & Me.SCSearch & "'" Call ListData 'display the data on listbox row after row Loop
Above is my code for pulling all the data that matches the category and keyword the user will input.
Its working fine but the last data that will be found is always doubled. Can someone tell me why? I can’t analyze the reason why.
I have a counter for found matches, so I need accurate count.