DbConnection.cls

Option Explicit

Public Function GetOpenConnection() As ADODB.Connection
    Dim conn    As ADODB.Connection
    Dim strCon  As String
            
    On Error GoTo errHandle
        
    strCon = "DRIVER=SQLite3 ODBC Driver;Database=" & App.Path & "\db\Northwind.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0"
    
    Set conn = New ADODB.Connection
    conn.ConnectionString = strCon
    conn.Open
    
    Set GetOpenConnection = conn
    
    Exit Function
errHandle:
    ' do nothing
End Function

Public Sub CloseConnection(ByVal conn As ADODB.Connection)
    If Not conn Is Nothing Then
        If conn.State = adStateOpen Then conn.Close
        Set conn = Nothing
    End If
End Sub