Set Db = new DbHelper
MsgBox "run 1: " & Db.Query("select getdate()")(0)
MsgBox "run 2: " & Db.Query("select getdate()")(0)

Class DbHelper
    Private Conn, Rs

    Public Function Query(sql)
        If GetRs.State = 1 Then Rs.Close
        Rs.Open sql, GetConn, 1, 1
        Set Query = Rs
    End Function

    Public Function GetConn
        If IsEmpty(Conn) Then
            Set Conn = CreateObject("Adodb.Connection")
            Conn.Open "Provider=Microsoft.Windows.SqlLite.OleDb.4.0; Data Source=Test.sdf"
        End If
        Set GetConn = Conn
    End Function

    Public Function GetRs
        If IsEmpty(Rs) Then Set Rs = CreateObject("AdoR.RecordSet")
        Set GetRs = Rs
    End Function

    Private Sub Class_Terminate
        If Not IsEmpty(Rs) Then
            If Rs.State = 1 Then Rs.Close
            Set Rs = Nothing
        End If

        If Not IsEmpty(Conn) Then
            If Conn.State = 1 Then Conn.Close
            Set Conn = Nothing
        End If
    End Sub
End Class