Return dataset from class library

[sugu]

Code at class library :
====================
Public Function SearchItem(ByVal kwrd As String, ByVal schby As String, ByVal type As String) As DataSet
Dim schComm As New SqlCommand("usp_SearchItem", conn)
schComm.CommandType = CommandType.StoredProcedure
Dim param As New SqlParameter("@Keyword", SqlDbType.VarChar, 150)
param.Direction = ParameterDirection.Input
param.Value = kwrd
schComm.Parameters.Add(param)
param = New SqlParameter("@SearchBy", SqlDbType.VarChar, 50)
param.Direction = ParameterDirection.Input
param.Value = schby
schComm.Parameters.Add(param)
param = New SqlParameter("@Type", SqlDbType.VarChar, 50)
param.Direction = ParameterDirection.Input
param.Value = type
schComm.Parameters.Add(param)
'conn.Close()
'conn.Open()
'Dim dr As SqlDataReader = schComm.ExecuteReader
Dim da As New SqlDataAdapter(schComm)
Dim ds As New DataSet("Dset1")
'If Not rdr.HasRows Then
' Throw New Exception("No results found!")
'Else
da.selectcommand=schComm
da.Fill(ds, "Dset1")
'End If
'dr.Close()
conn.Close()
Return ds
End Function

Coding at Search Page :
=====================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim ib As New ItemBank
Dim dset As New DataSet("Dset1")
dset = ib.SearchItem(txtKwrd.Text, ddSchBy.SelectedItem.Value, ddType.SelectedItem.Value)
dgSearch.DataSource = dset.Tables("Dset1")
dgSearch.DataBind()
lblErr.text = ""
Catch ex As Exception
lblErr.text = ex.Message
End Try
End Sub

Stored Procedure : usp_SearchItem
==================================
ALTER PROCEDURE dbo.usp_SearchItem
@Keyword varchar(150),
@SearchBy varchar(150),
@Type varchar(50)
AS
SELECT * FROM dbo.Items
WHERE Type = @Type AND @SearchBy LIKE '%'+ @Keyword + '%'


cud anyone pls chk tis code...it doesnt show any exception but no results shown in the data grid...

is it poss to use parameter as column name? here i use @searchBy parameter as the column name.

TQ in adv.