Rogério você deveria fazer assim

 

"SELECT SUM(campo_a_ser_somado) as QuantTotal FROM sua_tabela _

WHERE dt_faturamento>=dt_ini and dt_faturamento<=dt_fim ORDER BY data"

 

esta select faria o seguinte somaria os campos entre uma data inicial e uma data final e armazenaria em QuantTotal que é um campo temporario que a select cria, e exibiria estes por ordem de data, entendeu

 

para exibir o total você faria assim

 

RS("QuantTotal") ' rs é seu recordset

 

os demais bastaria você fazer a exibição de forma normal

 

tipo

 

rs("faturamento")

rs("data")

 

e assim por diante

 

 

 

 

Caro depois que voce alimentar o campo 

 

Sql ...

Label1.caption

sql="Select Codigo, Nome from vendedor"

Sql=sql & " Where Codigo=" & X -> codigo do vendedor

Set rsPedidos.Openrecordset(SQl, )

label1 ="" & sn("Nome")

 

Sql = "Select sum(val(Qtd_PEdidos)) as Qtde from Mult_Pedidos"
SQl=sql & " Where Vendedor =" & Sn("Codigo")

Set rsPedidos.Openrecordset(Sql,4)

 

Label1= Label1 & "  - " & Sn("Qte")