Private Sub cmdBerechnen_Click()
     Dim DB As Database
     Dim Rs As Recordset
 
     SQL = "SELECT SUM(ReiseBetrag) AS Summe, Buchungsdatum, " & _
                              "Buchungsnummer, Kundennummer FROM" & _
                              "[Buchungen_Akt] " & _
                              "WHERE Kundennummer = " & CStr(dbCombo1.Text) & "" & _
                              "AND " & _
                              "Buchungsdatum BETWEEN #" & Format( _
                              dtPiker1.Value,"m-d-yy") "#" & _
                             " AND #" & Format(dtPiker2.Value,"m-d-yy") & "#"
 
      DB=DBEngine.OpenDataBase(sDBName, False, False,";pwd = Passwort")
      Set Rs = DB.OpenRecordset(SQL, dbOpenDynaset)
 
      If Not Rs.Eof Then lbSumme.Caption = Rs!Summe
 
      DB.Close 
 
End Sub