Как нормально заполнить в vb6.0 DataGrid (отсоединенный) ?

Формулировка задачи:

Привет, тут такая задача:
проект на vb6.0
данные получает коннектясь к application серверу используя внутренние компоненты.
Из функциональности они только предоставляют однонаправленный перебор результатов sql-запросов и собссно получение строчек и значений в колонках в своем внутреннем формате.
Подскажите пожалуйста, как можно сделать так чтобы обычный datagrid в vb6.0 нормально показал для меня к примеру просто массив записей.
Я попробовал создавать recordset без source, connection , заполнять его и присваивать datagrid-у, но в момент заполнения рекордсета вылезает ексепшн, что его типа надо корректно открыть. А чтобы открыть как я понял надо иметь установленное подключение к Б/Д. Но у меня его нет!
Чего делать?

Решение задачи: «Как нормально заполнить в vb6.0 DataGrid (отсоединенный) ?»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> rs <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Long</font>

rs.Fields.Append <font color="teal">"t1"</font>, adVarChar, <font color="darkblue"><b>150</b></font> <font color="00AA00">' новые колонки</font>
rs.Fields.Append <font color="teal">"t2"</font>, adVarChar, <font color="darkblue"><b>150</b></font> <font color="00AA00">' новые колонки</font>

rs.<font color="blue">Open</font>

<font color="blue">With</font> rs
<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>200</b></font>
.AddNew
.Fields(<font color="teal">"t1"</font>).Value = <font color="teal">"x"</font> & i <font color="00AA00">' новые записи</font>
.Fields(<font color="teal">"t2"</font>).Value = <font color="teal">"n"</font> & i
.Update
<font color="blue">Next</font> i
<font color="blue">End</font> <font color="blue">With</font>


<font color="blue">Set</font> DataGrid1.DataSource = rs <font color="00AA00">' вывод данных</font>
DataGrid1.ReBind
<font color="blue">Set</font> rs = <font color="blue">Nothing</font>
                        