[Resolvido]Grupo de opções

Olá! escrevi o código abaixo para um botão baseado em um grupo de botões de opções que criei sem usar o assistente, então acontece que quando seleciono uma opção, outra não desmarca, ficando selecionada simultaneamente, quando deveria desmarcar, o que estaria errado? o que deve ser acrescido no caso?

Private Sub Abrir_Click()
If Me.rbtDA = True Then
DoCmd.OpenReport "DABP_AG41", acViewReport
ElseIf Me.rtbDM = True Then
DoCmd.OpenReport "DMBP_AG41", acViewReport
ElseIf Me.rtbInventário = True Then
DoCmd.OpenReport "Inventário", acViewReport
ElseIf Me.rtbArrolamento = True Then
DoCmd.OpenReport "Arrolamento", acViewReport
End If
End Sub

Bom dia! Realmente não desmarca sem usar o assistente.

Mas estando com o grupo de opções selecionado, ao por um botão de opção, ele fica preto, indicando que aquela opção fará parte dele. Daí basta por quantos quiser.

Que automaticamente, ao selecionar um remove a seleção do outro. Inclusive, basta usar o valor do grupo de opção para realizar sua operações, pois cada opção assume um
valor para o grupo de opções. Algo assim:

Select Case SeuGrupoDeOpcoes
Case 1
DoCmd.OpenReport "DABP_AG41", acViewReport
Case 2
DoCmd.OpenReport "DMBP_AG41", acViewReport
Case 3
DoCmd.OpenReport "Inventário", acViewReport
Case 4
DoCmd.OpenReport "Arrolamento", acViewReport
End Select

Olá Marcelo! entendi, obrigado pela orientação.

Maravilha. Não deixe de marcar como resolvido quando aplicar no seu projeto.

Olá! Mais uma vez obrigado Marcelo, esse é meu primeiro código VBA   , e ficou assim:

Private Sub Abrir_Click()
   Select Case Relatórios
Case 1
Me.sfm.SourceObject = "Report." & "DABP_AG41"
Case 2
Me.sfm.SourceObject = "Report." & "DMBP_AG41"
Case 3
Me.sfm.SourceObject = "Report." & "Inventário"
Case 4
Me.sfm.SourceObject = "Report." & "Arrolamento"
End Select

End Sub