Using command As New SqlCommand("SELECT * from dbo.Aufträge", conn)
            conn.Open()
 
            ' Create a dependency and associate it with the SqlCommand.
            Dim dependency As New SqlDependency(command)
 
            ' Maintain the refence in a class member.
            ' Subscribe to the SqlDependency event.
            SqlDependency.Start(conn.ConnectionString)
            AddHandler dependency.OnChange, AddressOf OnDependencyChange
            ' Execute the command.
            Using reader = command.ExecuteReader()
                ' Process the DataReader.
            End Using
        End Using

    Sub OnDependencyChange(ByVal sender As Object, ByVal e As _
      SqlNotificationEventArgs)
        label_status.Text = "neu"
    End Sub