Ang.: DISTINCT i min SQL, der ikke virker!

Hej med jer............

Jeg har en DropdownList hvor indholdet af den bliver hentet fra min DB. Der er mange produkt kategorier der går igen, så jeg ville bruge DISTINCT i min SQL sætning, men det virker bare ikke! Den viser alle produkter der er i DB'nm i stedet for kun at vise det samme produktnavn ÉN gang, og når man så vælger produktet så skal alle de produkter vises der hører under samme kategory!

Her er min kode:

Public MustInherit Class ProductList : Inherits System.Web.UI.Page

    Public dlVare As DropDownList
    Public dgVare As DataGrid

    ' ****** Fyld Dropdownlist ******

    Sub Page_Load(ByVal Source As System.Object, ByVal e As System.EventArgs)
        If Not IsPostBack Then
            Dim strConnection As String = Configuration.ConfigurationSettings.AppSettings("Autohuset")
            Dim strSQL As String = "SELECT DISTINCT Varenavn, Varenr FROM Vare"

            Dim objConnection As New SqlConnection(strConnection)
            Dim objCommand As New SqlCommand(strSQL, objConnection)

            objConnection.Open()
            dlVare.DataSource = objCommand.ExecuteReader()
            dlVare.DataTextField = "Varenavn"
            dlVare.DataValueField = "Varenr"
            dlVare.DataBind()
            objConnection.Close()
        End If
    End Sub

    '******* Vis de valgte produkter *******

    Sub subListChange(ByVal Source As System.Object, ByVal e As System.EventArgs)
        Dim strConnection As String = Configuration.ConfigurationSettings.AppSettings("Autohuset")
        Dim strSQL As String = "SELECT Varenr, Varenavn, Specs, Materiale, Farve, Pris, Leverandør " & _
                              "FROM Vare WHERE Varenr = " & dlVare.SelectedItem.Value

        Dim objConnection As New SqlConnection(strConnection)
        Dim objCommand As New SqlCommand(strSQL, objConnection)

        objConnection.Open()
        dgVare.DataSource = objCommand.ExecuteReader()
        dgVare.DataBind()
        objConnection.Close()
    End Sub

    Sub Logout_Click(ByVal Source As System.Object, ByVal e As System.EventArgs)
        FormsAuthentication.SignOut()
        Response.Redirect("http://www.e-coders.com/autohuset/Default.aspx")
    End Sub

End Class

Håber i kan hjælpe mig!?!?! :-(

Mvh Lucien