fabricated hierarchical recordset

I want to use fabricated hierarchical recordset in VB6 using ADO. I wrote code like
dim rs as adodb.recordest
set rs=new adodb.recordest
rs.fields.append "a1",adChar,30
Then in loop I put
rs.addnew
rs("a1")=...
re.update
when I associated this with hierarchical flexgrid I saw what I expected. On the next step I added line
rs.fields.append "a2",adChapter
and this operator gave me error that I use wrong parms. Then I realized that I should use specific connection. But with this connection adChar stopped to work also. Is it possible to resolve this problem?

--
Aleks Kleyn
http://www.geocities.com/aleks_kleyn