Visual Basic - Valor Null

Hola a todo@s:
Estoy utilizando visual basic 6.0, con Sql con conexion ADO.

Mi pregunta es la siguiente. Yo tengo un Select:
Valor puede ser igual a 5, 34, etc..., incluso a %, para que me busque todos
"Select Id, Nombre From Tabla Where Id like '" & valor & "';"

El tema es el siguiente, la variable valor me lleva datos, y a la hora de visualizarlos en un MsflexGrid lo veo correctamente, pero cuando lleva el valor %, me muestra todos los datos menos los que tienen los campos a Null, como podría hacerlo? Hay alguna solución?, es que sino tendría que hacer varios select, dependiendo lo que quisiese visualizar.

Es importante que se muestren todos los valores, incluidos los nulos.

Muchas gracias de antemano.

Saludos
Ana

En el SQL, tu consulta, adecuala con un CASE. Cuando sea NULL puedes ponerle --- y asi pintara todo.

B. Use a SELECT statement with simple and searched CASE function
Within a SELECT statement, the searched CASE function allows values to be replaced in the result set based on comparison values. This example displays the price (a money column) as a text comment based on the price range for a book.

USE pubs
GO
SELECT 'Price Category' =
CASE
WHEN price IS NULL THEN 'Not yet priced'
WHEN price < 10 THEN 'Very Reasonable Title'
WHEN price >= 10 and price < 20 THEN 'Coffee Table Title'
ELSE 'Expensive book!'
END,
CAST(title AS varchar(20)) AS 'Shortened Title'
FROM titles
ORDER BY price
GO

Este e un ejm. del sql.

Muchas gracias, varios:
Pero lo he probado y no me va. Te pongo lo que utilizo:

rst.Open "Select Sum(LineaDetalleAlbaran.TotalNeto) as TotalN, Albaran.CodigoAlbaran, " & _
"Albaran.CodigoCliente, Cliente.CodigoZona " & _
"From LineaDetalleAlbaran, Albaran, Cliente " & _
"Where (Albaran.FechaAlta Between '01/01/" & vRestaA & "' And '01/" & vTMesF & "/" & vRestaF & "') And (Albaran.FechaAlta < '01/" & vTMesF & "/" & vRestaF & "') " & _
"And Albaran.CodigoCliente Like '" & vCodCliente & "' And " & _
"Albaran.CodigoSerieAlbaran = 13 And " & _
"LineaDetalleAlbaran.IdenCodigoAlbaran = Albaran.IdenCodigoAlbaran And " & _
"LineaDetalleAlbaran.CodigoComercial Like '" & vCodComercial & "' And " & _
"Cliente.CodigoCliente Like '" & vCodCliente & "' And " & _
"Cliente.CodigoZona Like '" & vCodProvin & "' And " & _
"Cliente.CodigoTipoCliPro Like '" & vCodTipoCliPro & "' " & _
" Group By Albaran.CodigoAlbaran, Albaran.CodigoCliente, Cliente.CodigoZona;", cnn, adOpenDynamic, adLockOptimistic

Es en esta linea donde no pinta los valores nulos:
"LineaDetalleAlbaran.CodigoComercial Like '" & vCodComercial & "' And "

Si lleva un 3, me lo pinta, pero si quiero visualizar todos y pongo %, no me los pinta.

Seguire investigando.

Muchas gracias.

Saludos
Ana