' Процедура для соединения с SQL Server #2.
    Public Sub ConnectToSQLServer_2()
        ' Строка параметров подсоединения к серверу.
        Dim connectionString As String = "server='(local)'; trusted_connection=true; database='Northwind'"
        ' Объявляем переменную для соединения с сервером.
        Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)

        ' Текст sql-запроса.
        Dim queryString As String = "SECECT COUNT(*) FROM [Orders]"

        dbConnection.Open()

        Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        ' Отобразить результат запроса в виде строки в поле Label1.
        Label1.Text = dbCommand.ExecuteScalar().ToString()

        ' Закрываем соединение с сервером бд.
        dbConnection.Close()
    End Sub

Dim connectionString As String = "server=(local); trusted_connection=true; database=Northwind"