Problème durant l'exécution de la fonction IF.............then

Bonjour
en créant un formulaire de connexion je me suis bloqué sur une erreur et je n'arrive pas a la résoudre.
voila, J'avançais normalement sur le tuto mais je me suis bloqué au niveau du IF...........................then
quand j'enlève cette fonction le programme s'exécute bien, mais quand je remet le IF..............then ca m'affiche le message '' l'utilisateur ou le mot de passe est incorrect.''
Voici ce que j'ai mis

Option Explicit
 
Private Sub CmdLogin_Click() 
On Error Resume Next 

'déclaration des variable 
Dim password As String 
Dim role As String 

'configuration de variable 
password = WorksheetFunction.VLookup(TxUser, Sheets("connexion").Range("B:D"), 2, 0) 

role = WorksheetFunction.VLookup(TxUser, Sheets("connexion").Range("B:D"), 3, 0) 

If password = TxUser And role = "admin" Then 'controler si c'est l'admin 

Sheets("member").Visible = True 
Sheets("connexion").Visible = True 
Sheets("login").Visible = 2 

ElseIf password = TxUser And role = "user" Then 'pour controler si c'est un utilisateur 

Sheets("member").Visible = True 
Sheets("login").Visible = 2 

Else 
MsgBox "L'utilisateur ou le mot de passe est incorrect!" 
End If 
End Sub

merci pour votre aide.