ASP.NET

<WebMethod()> _
Public Function Search(ByVal searchName As String) As System.Data.DataSet
    Dim connectionString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
    Dim MyConnection As New SqlConnection(connectionString)
    Dim MyCommand As New SqlCommand()

    MyCommand.Connection = MyConnection
    MyCommand.CommandType = Data.CommandType.Text

    MyCommand.CommandType = "SELECT * From Book WHERE WineType like @prmSearchName"

    MyCommand.Parameters.AddWithValue("prmSearchName", "'%" & searchName & "%'")

    MyCommand.Connection = MyConnection

    Dim selectAdapter As New Data.SqlClient.SqlDataAdapter
    Dim ds As New Data.DataSet
    MyConnection.Open()
    selectAdapter.Fill(ds, "Wine")
    MyConnection.Close()

    Return ds

End Function