SQLite. В Access работает, а в VB6 нет

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

День добрый, уважаемые знатоки. Столкнулся я со следующей проблемой и поэтому прошу Вашей помощи:
Написал некий код, в котором мне нужно считать из БД SQlite поля. Изначально писал на ACCESS и все прекрасно работает, но, когда захотел сделать полноценное приложение, то получил экстренное завершение VB6. Ниже приведу часть кода:
Dim cn As ADODB.Connection
Dim sk As String
Dim fn As String
Set cn = New ADODB.Connection
cn.ConnectionString = "DRIVER=SQLite3 ODBC Driver;Database=АДРЕС БД;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
cn.Open
SQLa = "SELECT * FROM Data;"
Set rsa = New ADODB.Recordset
rsa.Open SQLa, cn, adForwardOnly, adLockReadOnly
Do Until rsa.EOF
fn = rsa.Fields(3)
rsa.MoveNext
Loop
rsa.Close
Затык происходит из-за выделенной строки, если ее убрать, то цикл нормально проходит. Я так понимаю, что там скорее всего несоответствие типов данных, но как это побороть, не могу догадаться. Подскажите пожалуйста. Ну и как я уже сказал, в Access все работает на ура.
Спасибо!

Решение задачи: «SQLite. В Access работает, а в VB6 нет»

textual
                            Листинг программы 
                        
                            CStr(rsa.Fields(X))