delphi7如何纯代码ado连接数据库？

hst

如题，
procedure TForm1.FormCreate(Sender: TObject);
var
     i,j:integer;                         //for循环变量只能是局部变量
     sql,item:String;
     ConStr:string;
begin
ConStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb;Persist Security Info=False';
       sql:='select name from data';       //通常是查询单个字段
     ADODataSet1.Active:=false;
     //加上下面这句,哈哈。不过一般不这么玩/////////////////////////
     ADODataSet1.ConnectionString := ConStr;
     //////////////////////////
     ADODataSet1.CommandText:=sql;
     ADODataSet1.Active:=true;
     j:=ADODataSet1.RecordCount;           //j和后面的i定义为整形变量
     ADODataSet1.First;                   //使指针指向（移动到）第一条记录
     Combobox1.Items.Clear;               //下拉框
     Combobox1.Items.Add('请选择...');       //添加一个提示项到下拉框项目中
     for i:=1 to j do                       //j为查询结果的记录数
     begin
       item:=ADODataSet1.FieldValues['name'];
                                           //逐一引用当前记录的指定字段值
       Combobox1.Items.Add(item);           //添加到下拉框项目中
       ADODataSet1.Next;                     //指针移动，指向下一条记录
     end;
     Combobox1.Text:='请选择...';             //显示提示值
end;
end.
------------------------------------------------

G0398

这个还真没试过