Visual Basic.NET - Funciones WS

Tengo la siguiente funcion que realiza una busqueda por numero de serie de todos los articulos entrantes en el almacen.

<WebMethod()> Public Function F22_Busqueda_X_num_Serie_Paso6(ByVal Serie As String) As DataSet

Dim c As New System.Data.OleDb.OleDbConnection
Dim comando As New System.Data.oledb.OleDbCommand
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New System.Data.DataSet

c.ConnectionString = "provider = microsoft.jet.oledb.4.0;data source = " & ruta
comando.Connection = c
comando.CommandType = CommandType.Text
comando.CommandText = "SELECT [Items].[IdItem], [Items].[Descripcion], [Items].[Marca], [Items].[Modelo], [Items].[Serie] FROM Items WHERE ((([Items].[Serie]) Like *" & Serie & "*));"

da.SelectCommand = comando
Try
c.Open()
da.Fill(ds)
c.Close()
Return ds
Catch ex As Exception
End Try
End Function

Lo que quiero realizar es una funcion con los mismos datos que unicamente me busque los articulos o items disponibles y para ello uilizare un checkbox trabajo sobre visual basic.net version 2008 gracias