Private Sub ViewSPBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewSPBtn.Click
        '/ Open the connection
        If conn.State = ConnectionState.Open Then
            ' Вышестоящий оператор: Ссылка на объект не указывает на экземпляр объекта.
            conn.Close()
        End If

        conn.Open()
        ' Create a data adapter
        Dim da As New SqlDataAdapter("myProc", conn)
        ' Create DataSet, fill it and view in data grid
        'Dim ds As New DataSet("SP") вместо SP подставил свою процедуру "myProc"
        'da.Fill(ds, "SP")

        Dim ds As New DataSet("myProc")
        da.Fill(ds, "myProc")

        DataGridView1.DataSource = ds.DefaultViewManager
        ' Listing 11.Using a stored procedure to view data from a table.
        MsgBox("Доходит сюда!")
    End Sub 'ViewSPBtn_Click