Was steht VORHER (vor der 1.Zeile) im ado_q.SQL drin? Wieso setzt Du Active auf True/False? Schmeiss das raus.
Verwende außerdem die TADOConnection.Execute - Methode, um
SQL-Befehle abzusetzen. Die TADOQuery-Komponente dient zum laden von Recordsets, die verändert werden können.