Obrigado pela colaboração, Roberto.
Tentei adaptá-la no meu project, mas deu erro <438 Object doesn't support this property or method>.
A rotina em sql é a seguinte:
Dim sql As String, Total As Integer
Dim Var As String
Var = InputBox("Data desejada:")
sql = "Select Sum(Valor) as Total from Tecnicos Where Data=" & Var
Data1.RecordSource = sql
Data1.Refresh
MsgBox Total
'Sendo <Valor> o campo que recebe os lançamentos (tipo currency), podendo ser positivos ou negativos, <Data> o nome do campo que recebe a data de lançamento e <Tecnicos> o nome da tabela do banco de dados.
Será que a rotina <SUM> funciona com minha versão do VB (versão 5.0 Professional)?
