Search Database And Display In Gridview

I'm trying to do a search but it seems like it couldnt get the text in my text book and run the command. Can anyone help me here?Function searchBook(ByVal booking_id As Integer) As System.Data.DataSet

Dim search As Integer = txtSearch.Text

Dim connectionString As String = "server='(local)'; trusted_connection=true; database='Speedo'"Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)

Dim queryString As String = "SELECT [booking].* FROM [booking] WHERE [booking].[booking_id] LIKE '%1%'"Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand

dbCommand.CommandText = queryString

dbCommand.Connection = dbConnectionDim dbParam_booking_id As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter

dbParam_booking_id.ParameterName = "@booking_id"

dbParam_booking_id.Value = booking_id

dbParam_booking_id.DbType = System.Data.DbType.Int32

dbCommand.Parameters.Add(dbParam_booking_id)Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter

dataAdapter.SelectCommand = dbCommandDim dataSet As System.Data.DataSet = New System.Data.DataSet

dataAdapter.Fill(dataSet)Return dataSet

End Function

 Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click

' If Not Page.IsPostBack Then

'Dim search As String = txtSearch.Text

'MsgBox(search)

If ddSearchCat.SelectedValue = "booking" ThenMsgBox("you have selected booking")

GVSearch.DataSource = searchBook(txtSearch.Text)

GVSearch.DataBind()

ElseIf ddSearchCat.SelectedValue = "Log" ThenMsgBox("you have selected Log")

GVSearch.DataSource = searchLog(txtSearch.Text)

GVSearch.DataBind()

ElseIf ddSearchCat.SelectedValue = "UserName" ThenMsgBox("you have selected UserName")

GVSearch.DataSource = searchUserName(txtSearch.Text)MsgBox("HELLO IN GRID")

GVSearch.DataBind()

GVSearch.Visible = TrueMsgBox("out of grid")

End If

'End If

End Sub