Visual Basic DB Interface implemening IDisposable to connect and disconnect the Database

lazydb.vb

Imports System.Data.OleDb, Type = System.Data.OleDb.OleDbType

Public Class lazyDb
    Implements IDisposable
    Public Shared conCfg As String
    Private db As OleDbConnection

    Sub New()
        db = New OleDbConnection(conCfg)
        db.Open()
        'MsgBox("DB open")
    End Sub

    Public Sub Dispose() Implements IDisposable.Dispose
        db.Close()
        'MsgBox("DB closed")
    End Sub

    Function query(str As String) As OleDbCommand
        Return New OleDbCommand(str, db)
    End Function

End Class