Dim cnn As New SqlClient.SqlConnection
        Dim cmd As SqlClient.SqlCommand
        Dim dtr As SqlClient.SqlDataReader
        Dim sSQL As String
        Dim m As New Maps.Main

        cnn.ConnectionString = m.ConnectionString
        Try
            cnn.Open()
        Catch ex As Exception
            Response.Write("Не удалось установить соединение с базой данных.")
            Exit Sub
        End Try

        sSQL = "SELECT * FROM ..."
        cmd = New SqlClient.SqlCommand
        cmd.CommandText = sSQL
        cmd.CommandType = CommandType.Text
        cmd.Connection = cnn
        Try
            dtr = cmd.ExecuteReader
        Catch ex As Exception
            cnn.Close()
            Response.Write("Не удалось выполнить запрос к базе данных.<br>") 
            Exit Sub
        End Try

        Do While dtr.Read
              Response.Write(dtr("ColumnName"))
        Loop
        dtr.Close()
        cnn.Close()