Accelération de l'exécution d'un code vba

Bonjour,
svp j'aimerais savoir s'il existe une fonction access qui permet d'accélérer l'exécution d'un code vba.Car lorsque j'associe à mon boton de commande un code vba, son exécution met du temps.puis-je accelérer le processus voici le code


Private Sub Commande4_Click()
Me.Requery
Dim recupe As String
Dim sql, nom, login As String
Dim rs As DAO.recordset
Static i As Byte
sql = "SELECT Nom_Employe,Login FROM Employe WHERE Login = '" & Me.Texte0 & "' AND Mot_passe ='" & Me.Texte5 & "';"
Set rs = CurrentDb.OpenRecordset(sql)
While Not rs.EOF
nom = rs("Nom_Employe").Value
If nom = "" Then
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation
i = i + 1
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
Else
If nom = "bikai" Then
DoCmd.Close acForm, "password"
DoCmd.OpenForm "depanner", acNormal
Else
DoCmd.Close acForm, "password"
DoCmd.OpenForm "panne", acNormal
End If

End If
Wend
End Sub


Private Sub Form_Load()
Me.Texte0 = ""
Me.Texte5 = ""
End Sub