HELP PLEAASE en vb 6.0

Bonjour,
pouvez vous m'expliquer le code suivant (juste les phrase en gras ^^ )

Private Sub cmd_effacer_Click()
' effacer les champs
txt_titre.Text = ""
txt_auteur.Text = ""
txt_edition.Text = ""
txt_etage.Text = ""
txt_placard.Text = ""

End Sub

Private Sub cmd_enregistrer_Click()
' Ajout d un livre, recuperer infos
titre = txt_titre.Text
auteur = txt_auteur.Text
an = combo_an
edition = txt_edition
placard = txt_placard
etage = txt_etage
disponible = txt_disponible
' requete
requete = "INSERT INTO biblio(titre,auteur,annee,edition,placard,etage,disponible) VALUES('" + titre + "','" + auteur + "','" + an + "','" + edition + "','" + placard + "','" + etage + "','" + disponible + "')"
' Connexion init
Set cnx = New ADODB.Connection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "db.mdb"
'Ouverture de la base de données
cnx.Open
If titre = "" Or auteur = "" Then
MsgBox "Titre et auteur sont obligatoires", vbOKOnly + vbInformation, "Champs obligatoires"
Else
cnx.Execute (requete)
MsgBox "Le livre a été ajouté avec succès", vbInformation + vbOKOnly, "Livre ajouté avec succès"
End If
cnx.Close
' vider champs
txt_titre.Text = ""
txt_auteur.Text = ""
combo_an = ""
txt_edition = ""
txt_placard = ""
txt_etage = ""
Call form_principale.actualiser
End Sub

Private Sub cmd_fermer_Click()
Unload Me
End Sub

Private Sub Form_Load()
' remplir champ année
For i = 1900 To 2010
combo_an.AddItem i
Next i
End Sub