Select Distict dur ikke, hva så?

Jeg har en kode, hvor den finder en masse varenumre i min database. Dem vil jeg gerne sorter i, så de ikke fremkommer flere gang i min resultat liste.

MEN... nogen gange er Varenummeret der ikke og så skal den skrive Tegningsnummeret ind. Så derfor kan jeg ikke vælge DISTINCT VARENUMMER, hvad gør jeg så?

    Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data\Flanger.mdb")
    strSQL = "Select * FROM " & FlangeTabel & " WHERE D='" & FraForm_D & "' AND B='" & FraForm_b & "' AND d1='" & FraForm_d1 & "' AND [Materiale] like '*" & FRM_HovedFlange.cbo_Materialer.Text & "*'"
    Set rsFlangeSøgning = datDB.OpenRecordset(strSQL)

    Dim SkitseNummer As String
    rsFlangeSøgning.MoveFirst

    Do Until rsFlangeSøgning.EOF
        If IsNull(rsFlangeSøgning("Varenummer")) = True Then
            FRM_HovedFlange.lstListe.AddItem TabelFlangeNavn & vbTab & rsFlangeSøgning("Tegnings Nummer")
            rsFlangeSøgning.MoveNext
            Counter = Couter + 1
        Else
            FRM_HovedFlange.lstListe.AddItem TabelFlangeNavn & vbTab & rsFlangeSøgning("Varenummer")
            rsFlangeSøgning.MoveNext
            Counter = Couter + 1
        End If
    Loop