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;

数据集控件都释放掉了，当然没有数据可显示了。
要显示数据的话，最好用添加控件的方式，即在设计期间大组件面版添加一个控件到程序中，并且像连接字符串等在运行期间一般不需要变更的进行静态设置。

        finally
            showmessage('暂停,看到效果了吧...');
            qrysel.free;