Estou com o seguinte problema, tenho uma combo box que ao receber o foco é preenchida com os dados do DB, estava funcionando, só que agora esta aparecendo uma mensagem de erro “Run-time error 94 Invalid use of Null”. O campo no bd aceita valor nulo. O erro acontece na linha que está em negrito. O que pode ser?

Set db = OpenDatabase(dirdb & "bdCadastro.mdb")

Set Tabela = db.OpenRecordset("SELECT distinct(Profissao) FROM tblCadastro")

    While Not Tabela.EOF

 txt_Profissao.AddItem Tabela!Profissao

Tabela.MoveNext

    Wend

Exit Sub