Para mi el problema esta en la concatenación de los campos que forman parte de la consulta, en ningun lugar veo que se separen por coma
','
Código SQL
[-]
If Check_Cod_Producto.Checked Then Campos:= Campos +'Codigo_Producto';
If Check_Descripcion.Checked Then Campos:= Campos +'Descripcion_Producto';
If Check_Minima.Checked Then Campos:= Campos +'Existencia_Minima';
If Check_Maxima.Checked Then Campos:= Campos +'Existencia_Maxima';
If Check_Pto_Reorden.Checked Then Campos:= Campos +'Punto_Reorden';
If Check_Entrada.Checked Then Campos:= Campos +'Total_Entradas';
If Check_Salida.Checked Then Campos:= Campos +'Total_Salida';
El resultado debe ser:
Campos=>'Codigo_ProductoDescripcion_ProductoExistencia_MinimaExistencia_MaximaPunto_ReordenTotal_Ent radasTotal_Salida'...
Lo correcto deberia ser:
Campos=>'Codigo_Producto, Descripcion_Producto, Existencia_Minima, Existencia_Maxima, Punto_Reorden, Total_Entradas, Total_Salida'...
Si solo seleccionas un campo creo que deberia funcionar sin problemas...
Saludos