' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Private Sub Form_Load()
Dim SQL As String
Dim GesamtSumme As Long
 
Set DB = New ADODB.Connection
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "d:\db1.mdb"
 
Set RS = New ADODB.Recordset
 
SQL = "SELECT SUM(Schuss1) AS [Summe von Schuss1], Sum(Schuss2) AS [Summe von" & _
  "Schuss2] FROM Schützen"
 
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
GesamtSumme = RS![Summe von Schuss1] + RS![Summe von Schuss1]
 
MsgBox GesamtSumme
 
End Sub