No se en que parte quieras hacer esa comparacion pero por lo poco que veo podrías hacerlo así:
Cita: Dim blnVisible as Boolean
if consulta = 1 then
blnVisible = False
else
blnVisible = True
End If
MyDataGrid.Columns(1).Visible = Not blnVisible
MyDataGrid.Columns(2).Visible = blnVisible
Si no te funciona, muestranos el code que tienes y detallanos mas tu problema.
Salu2