Visual Basic - Error en consulta con función DSum

Hola a todos !!!

Cree una consulta en access con la función DSum para calcular el precio total de una venta y me funciona perfectamente pero me da el siguiente error al ejecutarla en visual:

La función DSum no está definida en la expresión.

Desde Visual llamo a las consultas creadas en access con el siguiente código y no se si donde tengo que definir la expresión es aquí.

La consulta en access te pide el codigoventa y con ello te muestra el total de las ventas con ese código por ello asocio el txtCampoVen(0) a la variable.

Código --> Antes de llamar hago un control simple de errores y luego llamo a esta función pasandole el nombre de la consulta.

Private Sub ConsultaVentot(strNombreConsulta)
Dim grdHoja As MSFlexGrid
Dim BD_muebleria As Database
Dim rstresultado As Recordset
Dim qdfconsulta As QueryDef


Set BD_muebleria = AccederBD()

Select Case strNombreConsulta
Case "pretotven"

Dim strcodventot As String

'Asociamos el codventa al campoventa
strcodventot = txtCampoVen(0).Text

'Accedemos a la consulta que fue creada en la BD
Set qdfconsulta = BD_muebleria.QueryDefs _
(strNombreConsulta)

'Pasamos los parametros a la consulta
qdfconsulta.Parameters!codigoventa = strcodventot


End Select

'Almacenamos el resultado en un recorset al
'ejecutar la consulta
Set rstresultado = qdfconsulta.OpenRecordset _
(dbOpenSnapshot)

'Cerramos el objeto utilizado para acceder a
'la consulta
qdfconsulta.Close

frmConsultas.Show


Call LlenarFlexGrid(frmConsultas.grdHoja, rstresultado)

End Sub

GRACIAS POR TODO !!!!

La función Dsum no existe en una sentencia SQL de agrupamiento de registros, para ejecutar una consulta de ese tipo tienes que ponerla así:

SELECT Sum(CampoaSumar) As TotalSumado FROM LaTabla

GRACIAS POR TODO !!!

YA LO HE CONSEGUIDO. ASI SI QUE FUNCIONA ; )

GRACIAS DE NUEVO !!!