请教各位,我写的下列语句,为什么数据在DBgrid控件中显示不出来啊！谢谢了！！

Question

VDataSource1:=TDataSource.Create(nil);
   Q1:=TADOQuery.Create(nil);
   Q1.Connection:=GetCon;
   Q1.Close;
   Q1.SQL.Add('select id, unitname from unit');
   try
   begin
     Q1.Open;
     Q1.close;
     Q1.Locktype := ltBatchOptimistic;
     Q1.open;
     VDataSource1.DataSet:=Q1;
     DBGrid.DataSource:=VDataSource1;
     DBGrid.Columns[0].visible:=false;
     DBGrid.ReadOnly := False;
    //  DBGrid.Columns[0].FieldName := 'unit';
     //DBgrid.Columns[0].Title.Caption := '提问单位';
     DBGrid.refresh;
   end;
   except
    begin
      showmessage('显示数据出错');
      exit;
    end;
   end;
   Q1.Close;
为什么数据在DBGrid中显示不出来啊！！

Answer 1

把最后一行的Q1.Close;去掉，Q1 被关闭了，自然不会有显示