codice:
Public Sub PblConnettiDatabase()
    Set pblCn = New ADODB.Connection
    Set pblRs = New ADODB.Recordset

    pblCn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=database.mdb"
End Sub

Public Sub PblDisconnettiDatabase()
    pblRs.Close
    pblCn.Close
    
    
    Set pblCn = Nothing
    Set pblRs = Nothing
End Sub