tjekke combo liste

Hej eksperter.
er der nogle der kan dreje dette ?
Jeg har en database med en masse kattegorier som er blandet sammen måske er der 5 ens vides ikke.
så vil jeg gerne have at den skal tjække om kattegorien også findes i combo1 listen hvis den gør det skal den gå til næste kattegori ellers skal den sætte den ind i combo1 listen jeg har en stump kode som jeg famler lidt rundt i men jeg kan over hoved ikke dreje den er der nogle kloge hoveder der kan det.

On Error GoTo ErrorHandler
Dim i As Integer
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim cn As ADODB.Connection
Dim tmp As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset

Do Until rs.EOF
    titelliste.AddItem rs("nr") & vbTab & rs("titel")
   
    For i = 0 To Combo1.ListCount - 1
    '---------MsgBox Combo1.List(i)
    If Combo1.List(i) = rs("kat") Then
    Else
    Combo1.AddItem rs("kat")
    End If
    Next

    rs.MoveNext
    Loop