jajaja que flojito eres para no darte cuenta de tu error xD

mira detalladamente y te daras cuenta que dice ORDER, eso va adelante xD anted del BY:
Código vb:
Ver originalcmd.CommandText = "select Producto from Productos where NFamilia = " & fam & " ORDER BY Orden ASC"