Udfyldning af Liste fra Recordset?

Vi har en database, hvor der ligger en masse varenummer i, MEN nogen af dem har IKKE noget varenummer endnu! Dog har de nogen data, så de skal blive liggende!

Når jeg laver en søgning, og den skal add'e det til en liste, skal den springer over alle de steder hvor feltet "Varnummer" er blankt, men hvordan gør jeg det??

Har prøvet med denne her, men det virker ikke!

    Do Until rsFlangeSøgning.EOF
        If rsFlangeSøgning("Varenummer") = "" Then
            rsFlangeSøgning.MoveNext
        Else
            FRM_HovedFlange.lstListe.AddItem rsFlangeSøgning("Varenummer")
            rsFlangeSøgning.MoveNext
        End If
    Loop