ADOQuery改成ADOTable1s怎么筛选

ADOQuery改成ADOTable1s如何筛选
在窗体里添加一个组合框ComboBox1，如何在下拉列表中， 
从一张有很多批号的表里筛选出满足条件的批号。  
窗体里我添加了一个 ADOTable1 、 
下面是我写的两种方法的代码但是下拉列表没有数据：  
第一种方法： 
void __fastcall TForm1::FormCreate(TObject *Sender)  
{  
 AnsiString sql;
  ADOTable1->Close();
  ADOTable1->Open();
  ADOTable1->First();
  sql="Select 腐蚀批号 from 腐蚀箔成绩单_高压tmp where 机号<'EH38'" ;
  while(!ADOTable1->Eof){
  ComboBox1->Items->Add(ADOTable1->FieldByName("腐蚀批号")->AsString);
  ADOTable1->Next();
  }
  ADOTable1->First();
  ComboBox1->ItemIndex = 0; } 

感谢zhouzhangkui之前的回答，现在如果改成ADOTable1那又是如何筛选呢？上面的代码筛选不到。。。

[解决办法]

C/C++ code

 ADOTable1->Active  = false ; ADOTable1->TableName = "腐蚀箔成绩单_高压tmp"; ADOTable1->Filter = " 机号 <'EH38'" ; ADOTable1->Filtered = true ; ADOTable1->Active = true ; while(!ADOTable1->Eof) {  ComboBox1->Items->Add(ADOTable1->FieldByName("腐蚀批号")->AsString);   ADOTable1->Next(); }