Concatenar durante Select Case

Boa noite gente boa gostaria de uma ajuda para saber onde esta o erro no meu raciocínio, tentei criar um código onde verifico várias caixa de seleção e as que estiverem como true será adicionado ao nome do arquivo de exportação mas só está recebendo da primeira selecionada bom segue o código abaixo:

Código:

Dim nomeArquivo As String
nomeArquivo = DLookup("Cpf", "tbl_funcionario", "Cod_funcionario=" & getFuncionarioAtual) & ":_"
Select Case True
    Case Me.slCartaoBanco
    nomeArquivo = nomeArquivo & "Cartao_"
    Case Me.slCnh
    nomeArquivo = nomeArquivo & "CNH_"
    Case Me.slCpf
    nomeArquivo = nomeArquivo & "CPF_"
End Select
MsgBox nomeArquivo, vbCritical, "teste"

esse é só o começo do código serão várias caixa de seleção.

Ninguém?

voce ja testou se apenas o dlookup esta funcionando?

utilizo este select em um quadro

Select Case Quadro271

Case 1

DoCmd.OpenForm "frm_OS_Historico"
DoCmd.OpenForm "producao_princ", , , , , acHidden

Case 2

DoCmd.OpenReport "rtl_Estoque_cad", acViewReport

Case 3

DoCmd.OpenReport "rtl_fornecedores", acViewReport

Case 4

DoCmd.OpenReport "rtl_transportadora", acViewReport

Case 5

'DoCmd.OpenReport "rtl_Estoque_TipoMaterial", acViewReport

Case 6

'DoCmd.OpenReport "rtl_Estoque_TipoMaterial", acViewReport

Case 7

DoCmd.OpenReport "rtl_MO", acViewReport

Case 8

DoCmd.OpenReport "rtl_ServicosPrestados", acViewReport

Case 9

DoCmd.OpenReport "rtl_TempoPermanencia", acViewReport


End Select

Bom dia
Não entendi a 1ª linha: Select Case True
Substitua True pela expressão a ser avaliada