Selección de Campos

[boluart]

una consulta dinamica, no te recomendaria, lo que mejor te recomiendo es que en vb ocultes aquellas columnas que tienen valor diferente de 1

Me.MSFlexGrid1.ColWidth(1) = 0

ahora el problema radicaria en saber cuales columnas no tienen asigando el 1 , ya que en la lista puede haber mas de una fila con 0 pero al final el valor 1

para ello podrias hacer otra consulta algo asi.

select sum(col01) as 'col01' ,sum(col02) as 'col02' ,sum(col03) as 'col03' , etc
from table1

asi al hacer el recorrido si la suma de la col01 es igual a cero entonces ningun elemento de la columna01 tiene asigando un 1 (esta consulta solo serviria para identificar que columnas ocultar) y ahora la otra consulta que muestre el listado principal quedaria igual.