dim conn, rs
set conn = new SQLite_Connection
'Подключаемся
conn.Open "MyDB.db"
'Выполнение запроса без результата
conn.execute "insert into test(key, value) values ('key n', 'value n');"
'Выполнение запроса
set rs = new SQLite_Recordset
rs.open "select * from test", conn, 0, 0
dim t
t = "table test:" & vbcrlf
do while not rs.eof
  t = t & "ByName [id] = " & rs("iD")
  for each field in rs.fields
    if isNull(field.value) then 
      t = t & field.name&" = [Null] "
    else 
      t = t & field.name&" = ["&field.value&"] "
    end if 
  next
  t = t &vbcrlf
  rs.MoveNext
loop
rs.close
MsgBox t
'Закрываем подключение
conn.close