Private Sub AnzahlBuchungen()
Dim DB As Database
Dim RS As DAO.Recordset
 
Set DB = DBEngine.OpenDatabase("\\au000ea001w2k\c$\esap 2.0\dat\db.mdb")
Set RS = DB.OpenRecordset("SELECT COUNT(Mitarbeiter) FROM t_Result WHERE Datum" & _
  ">=  " & SQLDatum(txt_Von.Text) & " AND Datum <= " & SQLDatum(txt_Bis.Text))
 
With frm_Auswertung.DG1
  .LockUpdate True
  .DataMode = Mode_Recordset
  .CreateClone = True
  Set .Recordset = RS.Fields(0)
  .LockUpdate False
  .Refresh
End With
   End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)