SQLite3 ODBC Driver;

SQLite3 ODBC Driver

Private Sub Form_Open(Cancel As Integer)

Dim db As New ADODB.Connection
Dim ss As New ADODB.Recordset

db.Open "DRIVER=SQLite3 ODBC Driver;Database=C:\AccVB\vid.db"
db.CursorLocation = adUseClient



db.Execute "create table tete (id integer primary key ,iid text)"
db.Execute "insert into tete(iid) values (1111111)"
db.Execute "insert into tete(iid) values ('abcde')"
db.Execute "update tete set iid = 'tetetete' where id = 1"

Set ss = db.Execute("select * from tete")
Set Me.lt.Recordset = ss.Clone

db.Close
Set db = Nothing

End Sub

http://www.ch-werner.de/sqliteodbc/