Неужели никто незнает?

[ShcVl]

Господа помогите!
В модуле класса имеется такой код:

Private Sub Class_Initialize()
Set db = OpenDatabase("E:\VH\Sek.mdb")
End Sub

Public Function GetList()
Dim Sql As String

Sql = "select * from tblGroup order by Id"

Set rs = db.OpenRecordset(Sql)
rs.MoveLast
rs.MoveFirst

GetList = rs.GetRows(rs.RecordCount)
rs.Close
Set rs = Nothing

End Function

Как после получения данных и отключения от базы в простой форме отобразить данные в DBGrid или DataGrid из массива, без подключения опять к базе (ведь DBGrid требует DatabaseName)

[Георгий]

Не мочи RecordSet.