Dim conect As New SqlClient.SqlConnection
 conect.ConnectionString = "Data Source=77.120.125.248;Initial Catalog=Ocenki;" & "User Id =Taaamerlan; Password=___"
 conect.Open()
        MsgBox("Соединение есть")
 Dim sqlcomand2 As New SqlClient.SqlCommand("SELECT * FROM dbo.Оценки", conect)
 Dim dataadapter As New SqlClient.SqlDataAdapter(sqlcomand2)
        Dim dataset As New DataSet
dataadapter.Fill(dataset, "БД оценок")
        DataGridView1.DataSource = dataset
        DataGridView1.DataMember = "БД оценок"
 MsgBox("Выведенно")

        conect.Close() 

Imports System.Data
Partial Class Default2
    Inherits System.Web.UI.Page
    'Inherits System.Data.SqlClient


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim conect As New SqlClient.SqlConnection
        conect.ConnectionString = "Data Source=77.120.125.248;Initial Catalog=Ocenki;" & "User Id =Taaamerlan; Password=figspam28"
        conect.Open()
        Label1.Text &= "есть"

        Dim sqlcomand2 As New SqlClient.SqlCommand("SELECT * FROM dbo.Оценки", conect)
        Dim dataadapter As New SqlClient.SqlDataAdapter(sqlcomand2)
        Dim dataset As New DataSet
        dataadapter.Fill(dataset, "БД оценок")
        GridView1.DataSource = dataset
        GridView1.DataMember = "БД оценок"
        Label2.Text &= "да"

        conect.Close()


    End Sub
End Class