SQL query med Checkbox valg som kriterier?

Hej,

jeg har lavet et lille program som skulle give brugeren mulighed for at vælge hvilke data de får med ud i en rapport.

Hertil har jeg lavet 3 x checkbox, hvor man så kan krydse af hvad man vil have med.

Når jeg så skal indsætte de kriteriet i SQL forespørgslen, så har jeg et mindre problem.

I første omgang har jeg løst det ved en masse IF sætninger, og det virker da okay nok nu, MEN det bliver jo noget uoverskueligt hvis jeg tilføjer bare 1-2 checkboxe mere!

Jeg har forsøgt lidt med noget array? men da jeg er relativ nu i VB så gik det ikke :o(

Jeg har oprettet et command array ved at kalde checkboxene det samme, men hvordan får man data hentet fra et command array?

PT. ser min udvalgskode sådan her ud:

Dim strUdvalg As String
Dim strOrdreNr As String
Dim strDato As String
Dim strOms As String

If chkOrdreNr.Value = 1 Then
strOrdreNr = "ohornq"
Else
strOrdreNr = ""
End If

If chkDato.Value = 1 Then
strDato = "ohslda"
Else
strDato = ""
End If

If chkOms.Value = 1 Then
strOms = "ohkpri"
Else
strOms = ""
End If


If strOrdreNr = "" And strDato = "" And strOms = "" Then
strUdvalg = "ohornq"
Else
    If strOrdreNr <> "" And strDato = "" And strOms = "" Then
    strUdvalg = strOrdreNr
Else
    If strOrdreNr <> "" And strDato <> "" And strOms = "" Then
    strUdvalg = strOrdreNr & ", " & strDato
Else
    If strOrdreNr <> "" And strDato = "" And strOms <> "" Then
    strUdvalg = strOrdreNr & ", " & strOms
Else
    If strOrdreNr <> "" And strDato <> "" And strOms <> "" Then
    strUdvalg = strOrdreNr & ", " & strDato & ", " & strOms
Else
    If strOrdreNr = "" And strDato <> "" And strOms = "" Then
    strUdvalg = strDato
Else
    If strOrdreNr = "" And strDato <> "" And strOms <> "" Then
    strUdvalg = strDato & ", " & strOms
Else
    If strOrdreNr = "" And strDato = "" And strOms <> "" Then
    strUdvalg = strOms

End If x 8

strUdvalg = strUdvalg & " "

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT " & strUdvalg & _
                      "FROM TXOHRE " & _
                      "WHERE ohslda between " & txtFraDato " & _
                      "AND " & txtTilDato
Adodc1.Refresh


Er der nogen som kan hjælpe mig med at få dette opsat på en nemmere måde??