Private Sub Command1_Click()
 
Dim DB As database
Dim Rs As Recordset
 
Set DB = DBEngine.OpenDatabase("SchützenAuswertung.mdb")
Set Rs = DB.OpenRecordset("Schützen")
 
SetRs = SELECT SUM (schuss1+schuss2) from Schützen
 
Rs.Close
DB.Close
 
End Sub