Private Declare Sub sqlite3_open Lib "sqlite3.dll" (ByVal filename As String, _
  ByRef handle As Long)
Private Declare Sub sqlite3_close Lib "sqlite3.dll" (ByVal DB_Handle As Long)
Private Declare Function sqlite3_last_insert_rowid Lib "sqlite3.dll" (ByVal _
  DB_Handle As Long) As Long
Private Declare Function sqlite3_changes Lib "sqlite3.dll" (ByVal DB_Handle As _
Long) As Long
Private Declare Function sqlite_get_table Lib "sqlite3.dll" (ByVal DB_Handle As _
Long, ByVal SQLString As String, ByRef errstr As String) As Variant()
Private Declare Function sqlite_libversion Lib "sqlite3.dll" () As String ' Now 
' returns a BSTR
....