Formulaire de connexion sous Access

Private Sub Commande_connexion_Click()

Dim mabd As Database
Dim matable As Recordset
Dim trouve As Boolean
Dim Touv As String
Set mabd = DBEngine.Workspaces(0).Databases(0)
Set matable = mabd.OpenRecordset("Service_mdp", DB_OPEN_TABLE) ' Ouvre la table.

trouve = False
matable.MoveFirst
Do Until matable.EOF Or trouve = True
      
    If matable!nom_service = Me!liste_service And matable!mdp_service = Me!text_mdp Then
                trouve = True
                MsgBox "Ok"
                
      Else
            MsgBox "code erroné"
            DoCmd.Close
      End If
      matable.MoveNext
Loop

End Sub

Option Explicit

Public Function Pure(S As String) As String
	Pure = Replace(S,"'","''")
End Function

Private Sub Commande_connexion_Click()
	Dim Db As Database : Set Db = DBEngine.Workspaces(0).Databases(0)
	Dim Rs As Recordset : Dim SQL As String

	SQL = "SELECT id_service FROM Service_mdp WHERE nom_service='%1' AND mdp_service='%2';"
	SQL = Replace(SQL,"%1",Pure(Me.nom_service.Text))
	SQL = Replace(SQL,"%2",Pure(Me.text_mdp.Text))
	Set Rs = Db.OpenRecordset(SQL)

	If Rs.EOF Then
		MsgBox "Mot de passe erroné. Bye-bye !", vbCritical, "Erreur"
		DoCmd.Close
	Else
		MsgBox "OOkay c'est bon ...", vbInformation
	End If
	
	Rs.Close : Set Rs = Nothing
End Sub