[Resolvido]Dsum com dois critérios

Olá pessoal!

O que estaria errado no seguinte código:

Private Sub CabeçalhoDoGrupo1_Print(Cancel As Integer, PrintCount As Integer)
Dim datDataInicial As Date
Dim intBanco As Integer
Dim douSaldoAnterior As Double

datDataInicial = Me.txtInicio
intBanco = Me.banco_id
douSaldoAnterior = DSum("[valor atual]", "cst_extratoBanco", "[dataRef]<" & datDataInicial & "And banco_id=" & intBanco & "")

Me.txSaldoAnterior = douSaldoAnterior
End Sub

está dando erro "Uso de null inválido."

A consulta "cst_extratoBanco" é uma consulta com os seguites campos: dataRef, valor atual e banco_id

na coluna "dataRef" existe varias datas menores que "dataInicil"

Bom dia Ronaldo, as concatenações no critério estavam juntando a variável:
estava assim:
datDataInicial & "And banco_id
dessa formar a concatenação irá resultar nisso:
datDataInicialAnd banco_id
enquanto quê, deveria resultar nisso:
datDataInicial And banco_id.

Então, para corrigir seu código use assim:
"[dataRef]<" & datDataInicial & " And banco_id=" & intBanco

E caso ainda não funcione, tente assim:
"[dataRef]<#" & datDataInicial & "# And banco_id=" & intBanco

Obs.: como o campo banco_id é do tipo inteiro, não se faz necessário fechar as aspas no final, como estava (& "").

Obrigado!

Tudo certo.

Grato pelo retorno!