Dim Db As DAO.Database
Dim oRs As DAO.Recordset
Dim nCount As Long
 
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) 
 
' Bsp. nur 20 Werte lesen
Set oRs = Db.OpenRecordset("SELECT TOP 20 * FROM Temperatur ORDER BY Datum," & _
  "Zeit")
If oRs.RecordCount > 0 Then
  oRs.MoveLast
  With Graph1
    .LockUpdate True
    .NumSets = 4
    .Count = oRs.RecordCount
    oRs.MoveFirst
    Do
      nCount = nCount + 1
      .CurSet = 1: .Data(nCount).Value = oRs("Vorlauf"): .Data(nCount).Text = _
        oRs("Zeit")
      .CurSet = 2: .Data(nCount).Value = oRs("Rücklauf")
      .CurSet = 3: .Data(nCount).Value = oRs("Abgas")
      .CurSet = 4: .Data(nCount).Value = oRs("Heizraum")
      oRs.MoveNext
    Loop Until oRs.Eof
    .LockUpdate False
    .Refresh
  End With
End If
oRs.Close
Set oRs = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de