Ciao mr.fifteen,

il campo "Attivo" è una stringa, un numero o un boolena?
Presumo sia un boolean (campo sì/no di access)
quindi la if sarà
codice:
if rs_commesse.Fields.Item("Attivo").Value=true then