by Sam Blagoslovenskiy (5 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 1st October 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Fill comboboxes or listboxes without dups
Dim coll As New Collection
On Error Resume Next
Do Until myrs.EOF
coll.Add myrs(0), myrs(0)
If Err = 0 Then
contr.AddItem
Else
Err.Clear
Next
myrs.MoveNext
Loop
End Sub