关于ado的字符串的问题？

begin
     {创建一个临时的ODBC数据源,指向一个MsAccess数据库,并利用此DSN建立一个数
     据库连接}
     ACon := CreateOleObject('ADODB.Connection');
     ACon.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data     Source=c:\windows\desktop\db.mdb;;;');
     ARec :=Createoleobject('ADODB.Recordset');
     Arec.open('select * from member',ACon,3,3);
     lbl.Caption:=arec.recordcount;
     showmessage(arec.recordcount);
     while not arec.eof do
    begin
    str:= arec.fields['id'];    
    str:=str+'   '+arec.fields['hname'];//******
       reslst.Items.add(str);
       arec.movenext;
       //lbl.Caption:=arec.fields['hname'];
     end;end;
为什么运行后提示invalued variant operation???
而改用两个字符串变量就可以了！！！！