tengo problemas me podrian ayudar

[RoyMalcolm]

les cuento amigos que estoy haciendo una consulta en sql server 2000 mediante vb6.0 la consulta me la hace perfectamente pero tengo 2 problemas

1- tengo 5 opciones para ordenar mis consultas.
son optionbutton
optCodigo
optDescripcicion
optPVP
optMarca
optReferencia

para ordenar uso un if then
ej :

If OptCodigo.Value = True Then
strSQL = "SELECT PrecioDetal * 1.12 AS PVP, tblProduct.CodRef, tblProduct.Descripcion, " & _
"tblProduct.Marca, tblExistencia.Existencia, tblProduct.IDUnidC , tblExistencia.Observaciones " & _
"FROM tblProduct " & _
"INNER JOIN tblExistencia ON tblProduct.CodRef = tblExistencia.CodRef " & _
"WHERE (Descripcion LIKE '%" & strDescripcion & "%' ) AND (Marca LIKE '%" & strMarca & "%') AND " & _
"(tblProduct.CodRef LIKE '%" & strCodigo & "%') AND (Observaciones LIKE '%" & strReferencia & "%') " & _
"AND ((PrecioDetal * 1.12) BETWEEN " & sngPVPdesde & " AND " & sngPVPhasta & ") " & _
"ORDER BY tblProduct.CodRef"

pero tengo q repetir la consulta 5 veces. podria ordenar declarando una variable para asi no hacer la consulta solo una sola vez