Indsæt data i listbox!

Jeg har denne sætning:

Public Sub SearchHovedFlangen(FlangeTabel As String)
On Error GoTo ErrorHandler
    Dim MinB As Long
   
    MinB = CLng(FRM_HovedFlange.txtb.Text - FRM_HovedFlange.txtbDifference.Text)
   
    Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Flanger.mdb")
    strSQL = "Select DISTINCT Varenummer FROM " & FlangeTabel & " Where D <= " & FRM_HovedFlange.txtd1.Text & " AND B <= " & FRM_HovedFlange.txtb.Text & "AND B >= " & MinB & ""
    Set rsFlangeSøgning = datDB.OpenRecordset(strSQL)
   
    rsFlangeSøgning.MoveFirst
   
    Do Until rsFlangeSøgning.EOF
        If IsNull(rsFlangeSøgning("Varenummer")) = True Then
            rsFlangeSøgning.MoveNext
        Else
            FRM_HovedFlange.lstListe.AddItem rsFlangeSøgning("Varenummer")
            rsFlangeSøgning.MoveNext
        End If
    Loop

Men så hopper den bare det Recordset over hvis der er problemer med at den er BLANK!

Jeg vil gerne at den skal skrive rsFlangesøgning("Tegningsnummer") istedet for, men der skriver at elementet ikke er i samlingen? Hvordan kan det være???