急！！！

Question

Conn.Open()
Dim strSel As String = "select vcEvent from diary where vcEvent like '%" & txtValue.Text & "%'"
Dim Cmd As New SqlCommand(strSel, Conn)
Dim Dreader As SqlDataReader = Cmd.ExecuteReader

Answer 1

可以看看这个:
http://chs.gotdotnet.com/quickstart/aspplus/doc/webdataaccess.aspx#param

Answer 2

同saucer(思归) 的方法。非常简洁。
当然，如果要避免用户输入单引号而引起问题，可以这样做:
Dim strSel As String = "select vcEvent from diary where vcEvent like '%" & Replace(txtValue.Text,"'","''") & "%'"