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