______在执行完“恢复数据库”的语句后，再执行SQL查询语句___提示“连接失败”
procedure TForm1.BitBtn6Click(Sender: TObject);
var
s:string ;
begin
try

if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName ;
with DataModule2.ADOCommand1 do
begin
//数据库恢复的代码
CommandText := 'alter database 尊雅丽锦网上服装商城 set offline with rollback immediate' ; //让数据库离线
Execute ; //执行
CommandText := 'restore database 尊雅丽锦网上服装商城 from disk = '''+s+''' with replace ' ; //恢复
Execute ; //执行
CommandText := 'alter database 尊雅丽锦网上服装商城 set online with rollback immediate' ; //数据库重新上线
Execute ; //执行
end;
ShowMessage('数据库恢复成功...');

// 重新显示数据表 -------------执行这里的代码是提示 “连接中断 ” ，该怎么解决。
with DataModule2.ADOQuery1 do
begin
SQL.Clear ;
SQL.Add('select * from 尊雅服装来源表') ;
Open ;
end;
end;
except
ShowMessage('在恢复数据库时发生了不可预知的异常，请与软件开发人员联系');
end;
end;

可以确定的是，我恢复数据库的语句是正确的。

这个问题对我很重要，请知道的大哥大姐帮我看看哦！ 谢谢了哦 数据库 sql select
[解决办法]
DataModule2.ADOQuery1.ADOConnection1.Close;
DataModule2.ADOQuery1.ADOConnection1.Open;