Пример ADO

Объект Recordset

GetRows
GetString