Женитьба Excel и SQLite - VB

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

Всем снова здрасте!
Сразу опишу суть проблемы. Мне по работе нужно на первом этапе подготавливать некий объём информации (порой он может быть значительным до 100 000 строк), на втором этапе нужно эту информацию где-то хранить. Можно и в фале (файлах) оставить, но недавно пришел к мысли, что лучше все же в БД. В связи стем, что драйвера БД вряд ли поставят, да и БД нормальной не стоит (говорю по MySQL), решил поженить Excel с SQLite. Нашел в принципе пример.
http://www.gatekeeperforexcel.com/other-freebies.html . Сумел самостоятельно (глядя на пример) подключиться к БД, но вот как выгрузить данные поле получения, я не разобрался... Может кто подскажет как сие сделать.

'тут соединяемся
Sub ConnectDB()
Set rtrn = New ADODB.Connection

If SQLite3Initialize = 0 Then Debug.Print "SQlite инициализирована!"

fullPath = "C:\Documents and Settings\KonKram\Рабочий стол\XLSQLite\SQLite\XLSQLiteDemo.sqlite"
    rtrn = SQLite3Open(fullPath, 0)
    If rtrn = 0 Then
        MsgBox "Connection to database successful.", vbOKOnly + vbInformation, "SQLite - [Database Connection]"
    Else
        MsgBox "Error:" & vbCr & vbCr & sqlManager.getError, vbCritical + vbOKOnly, "SQLite - [Database Connection]"
    End If
End Sub

' это по идее получение данных, но у меня здесь ошибка (((
Dim rs As ADODB.Recordset
Private Sub InsertData()
    Set rs = New ADODB.Recordset
    ConnectDB
    With wsBooks
        For rowCursor = 2 To 11
            strSQL = "select c1, c2, c3 from table1"
            rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
        Next
    End With
End Sub

Решение задачи: «Женитьба Excel и SQLite»

textual
                            Листинг программы 
                        
                            rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic