1   ‘新線直接(瑋柏)
 2         Dim conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString)
 3         ‘軒瑞德
 4         Dim dr As SqlDataReader
 5         ‘軒擀麵
 6         Dim cmd As SqlCommand
 7         ‘擀麵=新史闊(SQL,線)
 8         cmd = New SqlCommand("select * from test ", conn)
 9 
10         ‘開線
11         conn.Open()
12         ‘瑞德=擀麵點毒
13         dr = cmd.ExecuteReader
14 
15         ‘開始毒
16         If dr.HasRows Then
17             dr.Read()
18             Response.Write(dr("title").ToString)
19         End If
20         ‘關毒
21         dr.Close()
22         ‘面取消
23         cmd.Cancel()
24         ‘線關掉
25         conn.Close()
26         ‘線釋放
27         conn.Dispose()