Wild Card Not Working In Search String

In the below section of code I'm connecing to a SQL database and when I use the "=" in the search it works ok, but when I try to add the ability to use wildcards by changin "=" to "LIKE" its not working





Working code:





Function GetName(ByVal first_Name As String) As System.Data.DataSet


Dim connectionString As String = "server='(local)'; trusted_connection=true; database='FamilyInfo'"


Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)





Dim queryString As String = "SELECT Names.* FROM Names WHERE (Names.First_Name = @First_Name)"


Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand


dbCommand.CommandText = queryString


dbCommand.Connection = dbConnection





Dim dbParam_first_Name As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter


dbParam_first_Name.ParameterName = "@First_Name"


dbParam_first_Name.Value = first_Name


dbParam_first_Name.DbType = System.Data.DbType.StringFixedLength


dbCommand.Parameters.Add(dbParam_first_Name)





Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter


dataAdapter.SelectCommand = dbCommand


Dim dataSet As System.Data.DataSet = New System.Data.DataSet


dataAdapter.Fill(dataSet)





Return dataSet


End Function








Code that I would like to work





Function GetName(ByVal first_Name As String) As System.Data.DataSet


Dim connectionString As String = "server='(local)'; trusted_connection=true; database='FamilyInfo'"


Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)





Dim queryString As String = "SELECT Names.* FROM Names WHERE (Names.First_Name LIKE '%' + @First_Name '+')"


Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand


dbCommand.CommandText = queryString


dbCommand.Connection = dbConnection





Dim dbParam_first_Name As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter


dbParam_first_Name.ParameterName = "@First_Name"


dbParam_first_Name.Value = first_Name


dbParam_first_Name.DbType = System.Data.DbType.StringFixedLength


dbCommand.Parameters.Add(dbParam_first_Name)





Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter


dataAdapter.SelectCommand = dbCommand


Dim dataSet As System.Data.DataSet = New System.Data.DataSet


dataAdapter.Fill(dataSet)





Return dataSet


End Function








Any help would be greatly appreciated