Cuestión : Asignar el valor de un db.OpenRecordset (“seleccionar… la declaración a una variable

Los expertos, tengo que conseguir un valor que sea una suma () de una columna en un mdb separado, yo usaly el
open con dao y findfirst, después lazo para cada uno y guardar un total corriente.  Pero como he estado leyendo que un selecto debe ser mucho más rápido, pero no puedo conseguirlo para trabajar. el código del

This existe en una diversa base de datos y está alcanzado vía una red en un PÁLIDO, ése es porqué estoy utilizando DAO, y ése es porqué no estoy utilizando el lazo, es era retardarse. No saber si usted necesita este information.
This es el error; “Demasiados pocos parámetros esperaron que 1
This sea donde se estrella;  Fijar los rs = el

What de db.OpenRecordset (“suma selecta (cuenta) de la venta donde InvNo = dblInvNo”) que estoy haciendo puede ser que no sea la mejor manera tan es decir cuál es la manera más rápida de conseguir la respuesta siguiente del MDB atado; ¡el
si el dblInvNo = entonces el dblCount 2401 = 325

Thank usted mucho **************** del
de Experts
mdlp

ESTO ES EL CÓDIGO QUE LO TENGO HASTA ESTE *************** del
del PUNTO es actual agregado a un strDBname indicado de Err_cbColShpQnty_Click

Dim del cbColShpQnty_Click del button

Private del comando () del error secundario del
On como DB de String
Dim como rs de DAO.Database
Dim como stDocName de DAO.Recordset
Dim como dblInvNo de String
Dim como dblCount de Double
Dim como Double

dblInvNo = [las formas]! ¡[CollectShippingQty]! [tbInvNo] el

strDBname = de “W:\ActCost.mdb " DB = los rs del
Set de OpenDatabase (strDBname) = el
del
de db.OpenRecordset
Set (“venta”, dbOpenDynaset) 'ERRROR = “demasiados pocos parámetros contaba con los rs = el
rs de 1
del
de db.OpenRecordset (“suma selecta (cuenta) de la venta donde InvNo = dblInvNo”). Rs de Close
Set = Nothing
db. Close
Set DB = Nothing

Need a; el tamaño y el weight
'Print de la caja del
'Calc escogen el label


Exit_cbColShpQnty_Click: Salida Sub

Err_cbColShpQnty_Click del
:
End Sub
de Exit_cbColShpQnty_Click
del curriculum vitae del
MsgBox Err.Description
class= " lastRow del

>Attachments del " nombre " del class= del class= " valor " del

del >