Visual Basic - Consultar fechas Vb6 + Sql Server

Hola, estoy intentando hacer una consulta de fechas sobre una tabla SQL SERVER. He intentado estas dos formas, pero la primera me da resultados erróneos y la segunda error de ejecución:

1ª forma:
fec1="20160808"
query_select = "select * FROM dbo.ARTICULO "
'& "WHERE fecha_ult > '" & fec1 & "' " _
'& "ORDER BY codigo "

2ª forma:
fecha1=date
query_select = "SELECT * FROM dbo.ARTICULO WHERE fecha_ult > #" & Format(fecha1, "yyyy-mm-dd") & "# ORDER BY codigo"

Produce error: '-2147217900(80040e14)' en tiempo de ejecución
Sintaxis incorrecta cerca de #

¿Alguna idea? gracias

Así te debe funcionar:

Saludos
Pd. Si la información te sirve a mi me sirve un +1

¡Parece que funciona. Gracias!