ModADOSearch

Public Function search(recordset As ADODB.recordset, field As String, lookfor As String, fieldtosave As String, listobject As Object)
Dim found As Variant
X = 1
found = Array(X)
recordset.MoveFirst
While (recordset.EOF = False)
If (recordset.Fields(field).Value = lookfor) Then
found(X) = recordset.Fields(fieldtosave).Value
listobject.AddItem (recordset.Fields(fieldtosave) & " | " & recordset.Fields(field))
X = X + 1
recordset.MoveNext
End If
Wend
End Function