UNE BOITE DE CONNEXION AVEC UNE BASE DE DONNÉES (DAO)

'déclarations
'une var pour récupérer le nom dans la combo
Dim affich_nom As String
'de la base
dim db as dao.database
'une requête pour trouver le bon mot de passe
Dim rq_pass As DAO.Recordset
'une variable pour prendre le mot de passe quie st dans la zonne de texte pour ça
Dim verif_pass As String
'une variable pour récupérer le bon mmot de passé dans la base
Dim pass_saisi As String
PROCEDURE SUR CLIC CHARGEMENT DU FORMULAIRE
'remplr la combo (il y a une autre source pour faire ça)
PROCEDURE SUR CLIC SUR LE BOUTON
'initialisation de la base
Set db = opendatabase (« chmin de la base »)
'initialisation de la var affich_nom avec le texte de la combo
Affich_nom = combo_nom.text
'initialisation de la requête qui récupère le mot de passe
Set rq_num_ent = db.OpenRecordset("select pass from entite where nom_entité = '" & affich_nom & "'")
'initialisation de la var du bon mot de passé avec le résultat de la requête
verif_pass = rq_num_ent!pass
'initialisation de la var pass_saisi avec le mot de passé saisi dans la zone de texte
pass_saisi = txt_pass.Text
'si le mot de passé saisi n'est pas le même que celui de la base
If pass_saisi <> verif_pass Then
     'message que ce n'est pas le bon
    MsgBox ("Ce mot de passe est mauvais ")
'sinon
Else
     'afficher le formulaire suivant ici c le formulaire accueil
    accueil.Visible = True
    ' fermer la boite de connexion
    Unload Me
'Fin si
End If