test connection to SQLite - db file: NWind.db

Sub testODBC()
 Dim a As New ADODB.Connection
 dbfile = ThisWorkbook.Path & "\NWind.db"
 With cn
    .ConnectionString = "DRIVER=SQLite3 ODBC Driver;" _
        & "Database=" & dbfile & ";" _
        & "LongNames=0;" _
        & "Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;" _
        & "Extended Properties=Excel 8.0;"
    .Open
End With
End Sub