Dificuldade utilizando o DSUM com critério

Não estou conseguindo colocar no critério do DSUM o valor selecionado num ComboBox.
Tabela: Saidas_Prod
Campo para Soma = Quantidade_Sai
Campo para Critério = Cod_Prod (valor selecionado num ComboBox de um Formulário).

Código:
Private Sub Quantidade_BeforeUpdate(Cancel As Integer)
Dim TotSai As Currency

TotSai = DSum("Quantidade_Sai", "Saidas_Prod", "Cod_Prod"= Me.CombProd.Value)
MsgBox TotSai

End Sub

Ao executar retorna o erro:
Erro em tempo de execução "94":
Uso de Null Inválido

Apresentou o erro:
Erro em tempo de execução '3464':
Tipo de dados incompatível na expressão de critério.

Private Sub Quantidade_BeforeUpdate(Cancel As Integer)
Dim TotSai As Currency
TotSai = Nz(DSum("Quantidade_Sai", "Saidas_Prod", "Cod_Prod = " & Me.CombProd.Value & ""), 0)
MsgBox TotSai
End Sub

Obrigado pela ajuda. Funcionou perfeitamente.