While Provoca error

Databases
1

Estoy realizando una app que permita pasar los campos y datos de una tabla Access a una base de datos sqlite.
Va todo bien, me esta quedando de lujo.
Ahora bien, cuando decido pasar los datos (contenido de los campos registro por registro) el prcose se bloquea en el 3 o 4 registro de la tabla y me dice
DEBUGmdbtosqlite.exe dejo de funcionar. Y obvio no encuentro el error.
Si alguien puede ayudarme lo voy a agradecer.

Les paso el codigo a ver que onda.

Dim db As New ODBCDatabase
dim sql as string
Dim tables As RecordSet
dim i as integer
dim j as integer

db.DataSource = “Driver={Microsoft Access Driver (*.mdb)};Dbq=” + trim(label5.text) + “;Uid=Admin;Pwd=;”
If db.Connect Then
sql = "SELECT * FROM " + label10.text
tables=db.SQLSelect(sql)
if tables<>nil then

  tables.movefirst
  j=0
  While Not tables.EOF
    j=j+1
    i=tables.columntype(j)
    msgbox (tables.IdxField(1))
    if i=5 then
      msgbox ("TEXT")
    end if
    tables.MoveNext    'ACA ES DONDE SE PROBOCA  CREO EL ERROR YA QUE LUEGO DEL MSGBOX DESPUES DEL TERCER REGISTRO APARECE EL ERROR
  Wend
end if

tables.close
db.close

else
msgbox (“No logre la conexion con la base de datos”)
db.close
end if
return

2

Your problem seems to be with this line

i=tables.columntype(j)

j increments for each record, but you are using it to access a column. Once j gets larger than the number of columns, you code crashes.