[Resolvido]Erro na caixa de combinação em cascata

Boa noite, galera.
Estou montando um pequeno projeto pessoal de Gerenciador Financeiro. Nele estou querendo fazer um relatório com 2 caixas de combinação em cascata (Grupo e Subgrupo).

Queria saber onde estou errando no código abaixo.


Segue link do projeto. (Projeto)

Código:

Private Sub cboGrupo_AfterUpdate()
  ' Define a caixa de combina??o Subgrupo para ser limitada pelo Grupo selecionado
  Me.cboSubgrupo.RowSource = "SELECT tblSubgrupos.ID_Subgrupo, tblSubgrupos.SubgrupoNome FROM tblSubgrupos" & _
     " WHERE ID_Grupo = " & Nz(Me.cboGrupo) & _
     " ORDER BY SubgrupoNome "
  Me.cboSubgrupo = Null
  
  EnableControls
  FilterSubgrupoList
End Sub

Private Sub FilterSubgrupoList()
Dim strRS As String
' Filtrar a caixa de listagem adequadamente com base na sele??o das caixas de combina??o.
  If Not IsNull(Me.cboSubgrupo) Then
    strRS = strRS & " WHERE ID_Subgrupo = " & Me.cboSubgrupo
  ElseIf Not IsNull(Me.cboGrupo) Then
    strRS = strRS & " WHERE ID_Grupo = " & Me.cboGrupo
  End If
  
End Sub

Private Sub EnableControls()

  ' Limpa as Caixas de Combina??o
  If IsNull(Me.cboGrupo) Then
     Me.cboSubgrupo = Null
  End If
  
 ' Ativar ou desativar caixas de combina??o com base nas caixas de combina??o.
  Me.cboSubgrupo.Enabled = (Not IsNull(Me.cboGrupo))
  
End Sub

Private Sub Form_Load()
  ' Quando o formul?rio ? carregado, desativa as caixas de combina??o.
  ' As caixas de combina??o s?o apenas ativadas se a caixa de combina??o precedente conter um valor.
  EnableControls
End Sub


Não baixei, estou sugerindo correção só olhando o código

Veja

Me.cboSubgrupo.RowSource = "SELECT tblSubgrupos.ID_Subgrupo, tblSubgrupos.SubgrupoNome FROM tblSubgrupos" & _
" WHERE ID_Grupo = " & Nz(Me.cboGrupo, 0) & _
" ORDER BY SubgrupoNome "

Se não explicitar, a função Nz substitui o campo nulo indicado por uma string vazia. Nesse caso em questão, não faz sentido usar uma string nula quando o campo a ser filtrado é do tipo numérico. Isto é, preciso explicitar que os casos nulos devem ser substituídos por um número (que de preferência não traga registros já que nenhum valor foi inserido no campo).

Consegui resolver amigo. Obrigado.
Acabei apagando a 6ª linha de código. "Me.cboSubgrupo = Null"

O fórum agradece o retorno. Sucesso.