Run-time error 3021

Jeg har en stump VBA som driller mig.

Jeg hiver data ud fra vores AD, for at bruge disse i et word-dokument, men den fejler ved én bestemt person.

Jeg tror det er fordi han er den sidste i mit recordset, men jeg ved ikke lige helt hvordan jeg undgår det.

Jeg kunne forstille mig, fejlen er i følgende kode:

While Not rs.EOF
    startBoks.cbAfsender.AddItem rs.Fields("name")
   
    If LCase(user) = LCase(rs.Fields("sAMAccountName")) Then
        For i = 0 To cbAfsender.ListCount - 1
          If cbAfsender.List(i) = rs.Fields("name") Then
                cbAfsender.ListIndex = i
                Exit For
            End If
        Next
    End If
   
  '  Debug.Print rs.Fields("sAMAccountName")
  ' Debug.Print rs.Fields("name") & ", " & rs.Fields("telephoneNumber") & ", " & rs.Fields("mail") & ", " & rs.Fields("title") & ", " & rs.Fields("facsimileTelephoneNumber") & ", " & rs.Fields("mobile") & ", ---- " & rs.Fields("distinguishedName")
    rs.MoveNext
Wend