ADO访问数据库，大家帮忙看一下问题出在哪里？

Question

function TDataAccess.GetCategory():TDataSource;
begin
  strSQL:='SELECT * FROM Category';
  Command.CommandText :=strSQL;
  RecordSet.Recordset :=Command.Execute ;
  DataSource.DataSet :=RecordSet;
  Result := DataSource;
end;procedure TMainForm.tabStockInShow(Sender: TObject);
begin
  txtQty.Text :='1';
  dtpSDate.Date:=now();  {得到零件类型}
  cmbPName.ListSource :=DataAccess.GetCategory;
  cmbPName.KeyField :='ID';
  cmbPName.ListField :='Category';
end;TDataAccess是一个DataModule，Command是一个ADOCommand，RecordSet是一个ADODataSet，cmbPName是一个DBLookUpComboBox。Category是一张表，里面有两个字段，一个是ID，一个是Category。前两天还能运行，后来不知怎么回事一运行就报错：Invalid object name 'Category'，我都急死了，大家帮忙看看到底是什么原因啊

Answer 1

function TDataAccess.GetCategory():TDataSource;
begin
  strSQL:='SELECT * FROM 数据库名.dbo.Category';
  Command.CommandText :=strSQL;
  RecordSet.Recordset :=Command.Execute ;
  DataSource.DataSet :=RecordSet;
  Result := DataSource;
end;
????