Imports System.ComponentModel
Imports System.Data.SqlClient
 
Public Class Form1
 
    Private Const connectionString As String = "server=127.0.0.1;" & _
      "database=AdventureWorks; trusted_connection=true"
 
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        SqlClient.SqlDependency.Start(connectionString)
 
        getData()
 
    End Sub
 
    Private Sub getData()
        Using connection As New SqlConnection(connectionString)
            connection.Open()
            Using command As New SqlCommand("select EmailAddress from" & _
              "Person.Contact where  ContactID = 1", connection)
                Dim dependency As New SqlClient.SqlDependency(command)
                AddHandler dependency.OnChange, AddressOf dependency_onchange
 
                TextBox1.Text = CType(command.ExecuteScalar(), String)
            End Using
        End Using
    End Sub
 
    Private Sub dependency_onchange(ByVal sender As Object, ByVal e As _
      SqlNotificationEventArgs)
        If CType(Me, ISynchronizeInvoke).InvokeRequired Then
            Dim d As New OnChangeEventHandler(AddressOf dependency_onchange)
            CType(Me, ISynchronizeInvoke).BeginInvoke(d, New Object() {sender, _
              e})
 
 
        End If
 
        Dim dependency As SqlClient.SqlDependency = CType(sender, _
          SqlClient.SqlDependency)
 
        RemoveHandler dependency.OnChange, AddressOf dependency_onchange
 
        getData()
 
    End Sub
End Class

SELECT is_broker_enabled FROM sys.databases WHERE name = 'MeineDatenbank'