我使用ADO对象连接SQLServer数据库的: 
var
mado_con,mado_cmd,mado_rst:variant;
在窗体的FormActivate事件中写入以下语句:
 mado_con:=Uvar.ado_con;  //连接数据库
 mado_cmd:=CreateOleObject('ADODB.Command');
 mado_rst:=CreateOleObject('ADODB.Recordset');//数据集
 mado_rst.open('Company',mado_con,2,3,2);
以上语句经测试是正确的设置TDBGrid控件的属性:
 DBGrid1.DataSource:=mado_rst;当执行到这里是报错
我改成mado_cmd或mado_con也一样报错请大虾帮忙解决,谢谢!!