[Resolvido]Preencher combox com lista de valores através do VBA

Olá pessoal!

Como prencher combox com lista de valores?

Na combox 1: escolho o item A
então. ..
Na combox 2 deve aparecer:
Produto 1
Produto 2
Produto 3

Tipo:

Private Sub combox1_AfterUpdate ()
If Me.combox1 = "A" Then
Me.combox2 = "Produto 1", "Produto 2", Produto 3"
Exit Sub
End If
End Sub

Seria como se eu digitasse na propriedade da combox2
a lista de valores que eu precisasse, mas não posso fazer
isso pq a combox1 será alterada e a combox2 deverá ser
preenchida com outros produtos.

Luz e Paz

estas combos são baseadas em tabelas ou valores tipo texto? Explique melhor como será o que precisa.

Olá rubenscouto,

NÃO estão relacionados a nenhuma tabela...
Mas eu necessito destes valores para filtrar um relatório.

Os valores a serem inseridos são:
PTM atingido;PTM não atingido

Pois um relatório será aberto com uma dessas filtragem:
[Forms]![frmImprimir].[cboComplemento]

A combo que receberá esta "Lista de valores" é a cboComplemento,
mas uma combo anterior terá que ser escolhida, e sóentão ao escolher o
relatório "PTM", esses valores poderão entrar, pois existirá outras
possibilidades para impressão com o mesmo Relatório.

tai.

Deu certo!

==========
Private Sub cboRel_AfterUpdate()
On Error Resume Next
DoCmd.SetWarnings False
If IsNull(cboRel) Or Me!cboRel = "" Then
MsgBox "Escolha um tipo de relatório!", vbCritical, "AVISO"
Me.cboRel.SetFocus
Me.cboTipo = ""
Exit Sub
End If

Dim ctl As Control
Me!cboTipo.Enabled = True
Set ctl = Me!cboTipo
If Me!cboRel = "PT Mínimo" Then
ctl.RowSource = "PTM atingido" & ";" & "PTM não atingido"
Me.cboTipo = ""
ElseIf Me!cboRel = "Alertas" Then
ctl.RowSource = "Janeiro" & ";" & "Fevereiro" & ";" & "Março" & ";" & "Abril" & ";" & "Maio" & ";" _
& "Junho" & ";" & "Julho" & ";" & "Agosto" & ";" & "Setembro" & ";" & "Outubro" & ";" & "Novembro" & ";" & "Dezembro"
Me.cboTipo = ""
ElseIf Me!cboRel = "Fornecedores" Then
ctl.RowSource = "Desinibidos" & ";" & "Inibidos"
Me.cboTipo = ""
End If
End Sub
=========

Obrigado rubenscouto... Luz e Paz!