Como hacer suma de campos en VB.-

[Sir Matrix]

Hola... pruébalo con estas modificaciones:

Option Explicit
' declaramos una variable de alcance publico de tipo DataBase
Dim Base As Database
' declaramos una variable de alcance publico de tipo Recordset
Dim Tabla As Recordset

Private Sub Form_Load()
On Error GoTo Error:
' varible de tipo set que guarda la direccion de la base de datos
Set Base = OpenDatabase(App.Path & "\\Base1.mdb")
'varible de tipo set que abre la tabla en modo lectura - escritura

sql= "SELECT SUM(ValorI) as Valor1 FROM Tabla"
Set Tabla = Base.OpenRecordset(sql)
Label4 = Val(TABLA!Valor1)
Label5 = 50
Label6 = Label5 - Label4
Exit Sub
Error:
MsgBox "Error : " & Err.Description
Resume Next
End Sub


------------------

No lo he probado pero por ahí debería andar... en lugar del nombre de la tabla, debías poner la consulta SQl,...

Saludos :)