return distinct records using subsonic 3 query and VB

Question

I have been having issues trying to return distinct records from a subsonic3 query using VB. My base query looks like so:

        Dim q As New [Select]("Region")
        q.From("StoreLocation")
        q.Where("State").IsEqualTo(ddlState.SelectedValue)
        q.OrderAsc("Region")

This returns duplicates. How can I add a distinct clause in this to return distinct records? I have been trying to place around with Contraints, but to no avail.

Thanks in advance HR