Public Function SQLDatum(OrgDatum As String) As String
   Dim day As String
   Dim month As String
   Dim year As String
   day = Left(OrgDatum, 2)
   month = Mid(OrgDatum, 4, 2)
   year = Right(OrgDatum, 4)
   SQLDatum = "#" & month & "-" & day & "-" & year & "#"
End Function
 
 
Private Sub Auswertung_Anzahl
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 * 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
  .LockUpdate False
  .Refresh
End With
End Sub

cu
Bris

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