DataGrid显示不了数据

Question

我是Delphi的新手，在我的代码中，DataGrid显示不了数据，代码如下：
前提：DataGrid.DataSet 为 ADODataSet1
      ADODataSet1.Connection 为 ADOConnection代码：
    function TDataController.select( procName: string; params:TParameters): _Recordset;
    var
      i:Integer;
    begin
         self.ADOConnection.Connected := true;         self.ADODataSet1.Active := false;
         self.ADODataSet1.Parameters.Clear;         self.ADODataSet1.CommandType := cmdStoredProc;
         self.ADODataSet1.CommandText := procName;//procName为存储过程的名字
         self.ADODataSet1.Parameters.Refresh;          //存储过程中参数的赋值
         for i := 1 to params.Count do
          begin
            self.ADODataSet1.Parameters.Items[i].Value := params.Items[i-1].Value;
          end;         self.ADODataSet1.Active := true;
         self.ADODataSet1.ExecuteOptions;         self.ADOConnection.Connected := false;    end;end.

Answer 1

说错了，不好意思，应该是
DataGrid.DataSource 为 ADODataSource1 
ADODataSource1.DataSet 为 ADODataSet1
ADODataSet1.Connection 为 ADOConnection 

Answer 2

最后一句
self.ADOConnection.Connected := false; 
连接都关闭了,怎会显示数据呢

Answer 3

self.ADOConnection.Connected := false; 

Answer 4

加一个datasource控件，设置dbgrid.datasource为datasource
datasource的dataset为adoquery1要保持数据库联接，关了就不会显示了。