Option Explicit
Dim nMin As Integer
 
Private Sub Form_Load()
  Timer1.Interval = 60000  ' 1 Minute
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  ' nur alle 10 Minuten DB-Abfrage ausführen
  nMin = nMin + 1
  If nMin = 10 Then
    nMin = 0
    ' ...
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de