Private Sub roCommand6_Click()
Dim sql As String
Dim sDatumVon As Date
Dim sDatumBis As Date
sDatumVon = DTPicker2
sDatumBis = DTPicker3
Dim berechnung As String
berechnung = "SELECT Datum, Cena, Tarif FROM Vse WHERE (((Vse.Datum) BETWEEN #" _
  & Format$(sDatumVon, "m-d-yy") & "# AND #" & Format$(sDatumBis, "m-d-yy") & _
  "#)" & Ronald & "))"
Text8.Text = berechnung
Dim summe As String
summe = "SELECT Sum(berechnung.Cena) AS geld FROM berechnung"
Data5.RecordSource = summe
Data5.Refresh

Frank