编译没有错误，为什么不显示数据，那位高手指点一下

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
       qrysel:=TADOQuery.Create(nil);
        try
            qrysel.ConnectionString   :='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test_ccerp;Data Source=192.168.16.229;';   //设置连接串              //qrysel.ConnectionString := TADOConnection;            with   qrysel        do
            begin            qrysel.Active:=false;
               qrysel.close;
                qrysel.sql.clear;
               qrysel.sql.add('select * from   bmdoc');
                try
                 qrysel.Open;
                 //qrysel.execsql;
                 //qrysel.Next;                     DataSource1.DataSet:=qrysel;
                    DBGrid1.DataSource:=DataSource1;
                    DBGrid1.Align := alClient;
                       qrysel.Active:=True;                except
                    showmessage('error');
                end;
            end;        finally
            qrysel.free;
        end;
end;

Answer 1

有记录没有？qrysel.Active没有必要设置其属性值

Answer 2

问题在于：
finally 
  qrysel.free; 
既然数据源被释放掉了。连接该数据源的控件又怎么能显示出数据呢？