Seleciona itens da Caixa de Combinação

Boa tarde!

Tenho uma 3 comboboxs: PRODUTO, CMBGENERO E CMBTAMANHO, com várias opções dentro delas, preciso que dependendo do que for selecionado na PRODUTO, liste apenas alguns ítens da CMBGENERO E CMBTAMANHO.

Por exemplo:

SE na PRODUTO eu selecionar CAMISA, na CMBGENERO apenas FEMININO OU MASCULINO, e na CMBTAMANHO me liste apenas o range PP,P,M,G,GG,XXG.

Comecei a fazer o código abaixo o primeiro IF está ok, o problema está no ELSEIF, não sei como definir apenas alguns itens da lista.

Segue código:
*******

Private Sub Produto_AfterUpdate()


If Me.Produto Like "CAPACETE*" Or Me.Produto Like "LUVA*" Or Me.Produto Like "AVENTAL*" Or Me.Produto Like "PROTETOR*" Or Me.Produto Like "OCULOS*" Or Me.Produto Like "Re*" Or Me.Produto Like "COLETE*" Then
Me.CmbGenero = "UNISSEX"
Me.CmbGenero.Enabled = False
Me.cmb_Tamanho = "UNICO"
Me.cmb_Tamanho.Enabled = False

ElseIf Me.Produto Like "CAM*" Or Me.Produto Like "CAL*" Or Me.Produto Like "JAQUETA*" Then

***Aqui teria que ser, por exemplo:
?????Me.CmbGenero = FEMININO OU MASCULINO
????Me.cmbTamanho = PP,P,M,G,GG,XXG


End If


Grata

Janette

Acho que o que você quer fazer pode ser encontrado aqui:
http://www.mabesi.com/artigos/aplicativos-office/access/62-filtros-em-cascata-caixas-de-combinacao-e-listagem.html

Obrigada pela ajuda, mas que quero saber como faz baseado somente nos ítens que eu tenho nas combobox, e não baseado em tabelas e consultas. Deve ser até mais simples, mas quero aprender como fazer.

Boa tarde,
A criação de tabela seria mais prático de fazer e mais fácil de alterar.
Não entendi os valores condicionantes, mas adapte
If Me.Produto Like "CAPACETE*" Or Me.Produto Like "LUVA*" Or Me.Produto Like "AVENTAL*" Or Me.Produto Like "PROTETOR*" Or Me.Produto Like "OCULOS*" Or Me.Produto Like "Re*" Or Me.Produto Like "COLETE*" Then
Me.CmbGenero = "UNISSEX"
Me.CmbGenero.Enabled = False
Me.cmb_Tamanho = "UNICO"
Me.cmb_Tamanho.Enabled = False

ElseIf Me.Produto Like "CAM*" Or Me.Produto Like "CAL*" Or Me.Produto Like "JAQUETA*" Then
If Me.CmbGenero <> "FEMININO" and Me.CmbGenero <> "MASCULINO" then msgbox "O valor não é aceite."
If Me.CmbTamanho <> "PP" and Me.CmbTamanho <> "P" and Me.CmbTamanho <> "M" and Me.CmbTamanho <> "G" and Me.CmbTamanho <> "GG" and Me.CmbTamanho <> "XXG" then msgbox "O valor não é aceite."
End If