<%@ Page Language="VB" Debug="true" Trace="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Sqlclient" %>
Sub Button1_Click(sender As Object, e As EventArgs)
Trace.Write ("Click", "Start")
Dim conn As New _
SqlConnection("Server=foo;Database=pubs;Trusted_Connection=true")
Dim cmd As New SqlCommand("select * from authors", conn)
Try
Trace.Write("Opening connection")
Conn.Open()
DataGrid1.DataSource = cmd.ExecuteReader(CommandBehavior.CloseConnection)
DataGrid1.DataBind()
Catch ex As Exception
Trace.Warn(ex.Message)
Label1.Text = "Could not connect to the database - " & _
"please try again later."
End Try
End Sub
Label