The following is my codes in a Ado.net program:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cn As New SqlConnection("data source=localhost;initial catalog=pubs;user id=sa;password=li08yuan")
Dim cm As New SqlCommand("Select * from Authors", cn)
Dim dr As SqlDataReader
cn.Open()------'Procedure is stop here
dr = cm.ExecuteReader
dr.Read()
Response.Write("Name: " & dr("au_fname") & " " & dr("au_lname"))
dr.Close()
cn.Close()
End Sub