Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Debug.WriteLine(Now.ToLongTimeString())
        Label1.Text = Now.Ticks.ToString()
    End Sub

13:17:27
13:17:32
13:17:37
13:17:42
...

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Public Function DataSet_aktualisieren(ByVal sSQL As String, ByVal DS_Name As _
  String)
        Dim CB As OleDbCommandBuilder
        Dim DA As OleDbDataAdapter
        Dim DR As DataRow
 
        Try
            'Lösche den Inhalt des DataSets um es neu zu füllen
            'Durch das Füllen werden wieder alle Daten (aktuell oder neu) 
            ' erfasst! 
            DS_all.Tables(DS_Name).clear()
            delay(100)
            DA = New OleDbDataAdapter(sSQL, db.adoConn)
            CB = New OleDbCommandBuilder(DA)
            DA.Fill(DS_all, DS_Name)
 
        Catch ex As Exception
            If Me.tmrSchichtplan.Enabled = True Then
                tmrSchichtplan.Enabled = False
            End If
            MsgBox("DataSet konnte nicht aktualisiert werden!" & _
              Environment.NewLine & _
            ex.Message, MsgBoxStyle.Critical)
        End Try
    End Function

Dim SQL As String = "Select * FROM tblAnrufer"
Me.DataSet_aktualisieren(SQL, "Anrufer")

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Public Sub tmrSchichtplan_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles tmrSchichtplan.Tick, cmdSortAnrufer.Click
        Dim Tag As String
        Dim Fruehschicht As String
        Dim Spaetschicht As String
        Dim Fruehschicht_Name, Spaetschicht_Name As String
        Dim DA_Schicht As OleDbDataAdapter
        Dim cm_Schicht As CurrencyManager
        Dim drv_Schicht As DataRowView
        Dim DT_Stat As DataTable
        Dim CB As OleDbCommandBuilder
 
        If Schicht_changed = True Then
 
            Try
                'Wochentag holen
                Tag = Format(Date.Now.DayOfWeek.ToString)
 
                Dim sSQL = "SELECT Fruehschicht_Name, Spaetschicht_Name," & _
                  "Spaetschicht_Start, Fruehschicht_Start FROM tblSchichten" & _
                  "WHERE Wochentag = '" & Tag & "'"
                AddToDS("Schicht", db.adoConn, sSQL)
                cm_Schicht = CType(Me.BindingContext(DS_all, "Schicht"), _
                  CurrencyManager)
                drv_Schicht = CType(cm_Schicht.Current, DataRowView)
 
                'Hole die Tagesdaten
                Fruehschicht = drv_Schicht(3)
                Spaetschicht = drv_Schicht(2)
                Fruehschicht_Name = drv_Schicht(0)
                Spaetschicht_Name = drv_Schicht(1)
 
                'Jetzt nur den einen aktivieren!
                If (DateTime.Now.ToShortTimeString >= Fruehschicht) And ( _
                  DateTime.Now.ToShortTimeString < Spaetschicht) Then
                    'Alle auf active=0 setzen!
                    Dim SQL As New OleDbCommand("UPDATE tblAnrufer SET" & _
                      "active=0", db.adoConn)
                    SQL.CommandTimeout = 2 'maximal 2 Sekunde warten
                    SQL.ExecuteNonQuery()  'SQL-Befehl ausführen
                    delay(150)
                    'Aktiv ist die Fruehschicht!
                    Dim SQL_2 As New OleDbCommand("UPDATE tblAnrufer SET" & _
                      "active=1 WHERE name = '" + Fruehschicht_Name + "'", _
                      db.adoConn)
                    SQL_2.CommandTimeout = 2 'maximal 2 Sekunde warten
                    SQL_2.ExecuteNonQuery()  'SQL-Befehl ausführen
                End If
                If (DateTime.Now.ToShortTimeString >= Spaetschicht) Then
                    'Alle auf active=0 setzen!
                    Dim SQL_3 As New OleDbCommand("UPDATE tblAnrufer SET" & _
                      "active=0", db.adoConn)
                    SQL_3.CommandTimeout = 2 'maximal 2 Sekunde warten
                    SQL_3.ExecuteNonQuery()  'SQL-Befehl ausführen
                    delay(150)
                    'Aktiv ist die Spaetschicht
                    Dim SQL_4 As New OleDbCommand("UPDATE tblAnrufer SET" & _
                      "active=1 WHERE name = '" + Spaetschicht_Name + "'", _
                      db.adoConn)
                    SQL_4.CommandTimeout = 2 'maximal 2 Sekunde warten
                    SQL_4.ExecuteNonQuery()  'SQL-Befehl ausführen
                End If
 
                Me.DataSet_aktualisieren("Select * FROM tblAnrufer", "Anrufer")
                Schicht_changed = False
                ' Me.tmrSchichtplan.Enabled = False
 
            Catch ex As Exception
                'Stoppe den Schicht-Timer
                Me.tmrSchichtplan.Enabled = False
                MsgBox("Der Schichtplan konnte nicht bearbeitet werden!" & _
                  Environment.NewLine & _
                            ex.Message, MsgBoxStyle.Critical)
            End Try
        End If
 
    End Sub

            DS_all.Tables(DS_Name).clear() ' Erstes Mal existiert die Tabelle 
            ' nicht
            delay(100)
            DA = New OleDbDataAdapter(sSQL, db.adoConn)
            CB = New OleDbCommandBuilder(DA)
            DA.Fill(DS_all, DS_Name) ' Tabelle wird hier angelegt

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

 ' ### Hinzufügen einer Tabelle zu einem DataSet (unter Angabe eines 
 ' Connection-Objekts)
    Public Overloads Sub AddToDS(ByVal Name As String, ByVal Conn As _
      OleDbConnection, ByVal SQL As String)
        DA_all = New OleDbDataAdapter(SQL, Conn)
        DA_all.Fill(DS_all, Name)
    End Sub