Hi,
jetzt suche in der Delphi-Hilfe mal nach
sets, dann lernst Du näheres dazu. Damit Dein Code jetzt immer funktioniert, wenn das Recordset zu ist, ändere ihn wie folgend:
IF stClosed in ADODataSet1.RecordsetState Then Label1.Caption := 'stClosed';
...
...