关于sql2000备份的有关问题

关于sql2000备份的问题
当我点备份的时候,在backup目录下有备份文件,说明是备份成功了,但程序会报错.
adoquery:commandtext   does   not   return   a   result   set的错误,不知怎么办,各位能帮我一下吗???备份代码如下:
var
path:string;
begin               //进行数据备份操作
    path:=GetCurrentDir+ '\backup\ '+formatdatetime( 'yyyymmddhhmmss ',now)+ '.bak ';
    self.Caption:= '正在备份数据... ';
    begin
        begin
            try
                Data_from.adoquery.Close;
                Data_from.adoquery.SQL.Clear;
                Data_from.adoquery.SQL.Add( 'backup   database   data   to   disk= '+ ' ' ' '+   Trim(path)+ ' ' ' ');
                Data_from.adoquery.Active:=True;
                Data_from.adoquery.open;
                Application.MessageBox( '数据库备份成功完成 ', '数据库备份 ',0+mb_iconinformation);
            except
                Application.MessageBox( '数据库备份失败！请检查备份路径或网络状态 ', '数据库备份 ',0+mb_iconinformation);
                exit;
            end;
        end;
    end;
    self.Caption:= '备份数据 ';
end;


[解决办法]
Data_from.adoquery.Active:=True;
Data_from.adoquery.open;
==========================================================================
改为Data_from.adoquery.ExecSQL;试一试

[解决办法]
Data_from.adoquery.ExecSQL;
[解决办法]
Data_from.adoquery.ExecSQL;

[解决办法]
Data_from.adoquery.ExecSQL;