Setze einen Breakpoint auf die erste Zeile und steppe dann mit F8 durch den Code, wenn das Programm am Breakpoint stehengeblieben ist.
Ansonsten versuche mal folgendes Konstrukt:
Delphi-Quellcode:
sql:= '
Select * from ' + Tabelle + '
where ' + Kennnummer + '
=' + QuotedStr(Kennnr);
Form2.ADOQuery1.SQL.Text :=
sql;
if Form2.ADOQuery1.Active
then
Form2.ADOQuery1.Requery
else
Form2.ADOQuery1.Open;
Grüße
Mikhal
[edit] QuotedStr eingefügt