Combos relacionadas

Bom dia

Estou tentando fazer uma dependência entre duas combos, mas quando tento executar não seleciona como pretendo.
Onde está o erro? Usei as instruções do Avelino Sampaio no "Usando Access", que é um mestre.

Option Compare Database

Private Sub cboClassProd_AfterUpdate()
   Dim strSql As String

-----------------------------------------------------------------------------------------
   rSql = "Select CodClassProd, Produto From TabProdutos"
   strSql = strSql & "Where CodClassProd = " & Nz(Me!CboClassProd.Comumn(0), 0)
   
   Me!CboProduto.RowSource = strSql
   
   Me!CboProduto.SetFocus 'Combobox Produto recebe o foco
   Me!CboProduto.Dropdown 'Abre automaticamente a lista
   
End Sub


Private Sub CboProduto_AfterUpdate()

End

da uma olhada nesse

http://maximoaccess.forumeiros.com/t21385-resolvidocombos-relacionadas-o-que-estou-a-fazer-mal?highlight=combos+expandem