Ciao carissimo Pirelli72
ti ringrazio infinitamente per l'immediata risposta, ma mi da un errore strano,

Dim rst1 As Recordset, DB1 As Database

Set DB1 = OpenDatabase("C:\...\DB.mdb")
Set rst1 = DB1.OpenRecordset("SELECT SUM('TOTALEFATTURA') FROM DB_FATTURE")
Do While Not rst1.EOF
LBL_TOTALE.Caption = rst1.Fields("TOTALEFATTURA").Value
rst1.MoveNext
Loop
rst1.Close
DB1.Close

Err: Tipi di dati non corrispondenti nell'espressione criterio, in questa riga:
Set rst1 = DB1.OpenRecordset("SELECT SUM('TOTALEFATTURA') FROM DB_FATTURE")

Grazie
vr-claudio