День добрый, уважаемые знатоки. Столкнулся я со следующей проблемой и поэтому прошу Вашей помощи:
Написал некий код, в котором мне нужно считать из БД 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)
sk = sk & fn & " " & rsa.Fields(4) & " " & rsa.Fields(5) & " " & rsa.Fields(6) & " " & rsa.Fields(7) & vbCrLf
rsa.MoveNext
Loop
rsa.Close

Затык происходит из-за выделенной строки, если ее убрать, то цикл нормально проходит. Я так понимаю, что там скорее всего несоответствие типов данных, но как это побороть, не могу догадаться. Подскажите пожалуйста. Ну и как я уже сказал, в Access все работает на ура.
Спасибо!

Все гениальное просто! Спасибо! Но как быть, если поле пустое? Получаю Invalid use of NULL

Преобразование решил следующей функцией
Function NZVB(tValue As Variant, Optional substValue) As Variant

If Not IsNull(tValue) Then
NZVB = tValue
Else
If IsMissing(substValue) Then
NZVB = vbEmpty
Else
NZVB = substValue
End If
End If
End Function

Всем спасибо! Очень помогли