macro para consulta x familia

Hola a todos.
He grabado una macro para modificar una consulta a una base de datos en
Access.
¿que tengo que modificar para que me pida el codigo de familia cada vez que
la ejecuto?
Gracias y Saludos
Carlos

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 26/11/2004 por CARLOS
'

'
Range("C5").Select
With Selection.QueryTable
.Connection = Array(Array( _
"ODBC;DSN=MS Access
Database;DBQ=L:\WIN32\GESTION\EMP0001\Gestion.MDB;DefaultDir=L:\WIN32\GESTIO
N\EMP0001;DriverId(1;FIL=MS A" _
), Array("ccess;MaxBufferSize 48;PageTimeout=5;"))
.CommandText = Array( _
"SELECT Articulos.CodigoFamilia, ArticuloProveedor.CodigoArticulo,
Articulos.DescripcionArticulo, ArticuloProveedor.CodigoProveedor,
ArticuloProveedor.EjercicioUltimoAlbaran, ArticuloProveedor.NumeroUl" _
, _
"timoAlbaran, ArticuloProveedor.FechaUltimoAlbaran,
ArticuloProveedor.UnidadesUltimoAlbaran,
ArticuloProveedor.PrecioUltimoAlbaran" & Chr(13) & "" & Chr(10) & "FROM
`L:\WIN32\GESTION\EMP0001\Gestion`.ArticuloProveedor Articulo" _
, _
"Proveedor, `L:\WIN32\GESTION\EMP0001\Gestion`.Articulos Articulos"
& Chr(13) & "" & Chr(10) & "WHERE ArticuloProveedor.CodigoArticulo Articulos.CodigoArticulo AND ((Articulos.CodigoFamilia='319'))" & Chr(13) &
"" & Chr(10) & "ORDER BY ArticuloProveedo" _
, "r.CodigoArticulo")
.Refresh BackgroundQuery:=False
End With
End Sub