AccessのABEで参照設定して

Dim testDB
With System.Data.SQLite
set testDB=.createDatabase("SQLitetest.sq3")
.createTable testDB , "testTable"
end with