Ocultar cabeçalho e ordenar detalhe

Bom dia,

Tenho um form que abre vários relatórios, um deles é o relatório artigos.
Nesse form tenho uma opção que é ver por família de artigos e tenho qualquer coisa assim:

rel = 5 ' codigo que atribui a este relatório

if opção = 0 then
rel = rel & "0"
else
rel = rel & "1"
end if

Depois criei dois relatórios, um por família e outro só artigos.
Isto complica em outras situações onde as opções chegam a ser 5 e tenho um numero enorme de relatórios.

Isto funciona mas para simplificar tentei fazer assim:

public defrel as string
if opção = -1 then
defrel = "porfamilia"
end if

e no relatório:

Private Sub Report_Load()

Select Case defrel

Case "porfamilia"
Me.CabeçalhoDoGrupo0.Visible = True

Case Else

End Select
End Sub

Também funciona com um senão:
Como reordenar alfabéticamente os artigos?
Eles ficam na mesma agrupados por família.
Alguma solução?

Obrigado.