Bonsoir,
Ton erreur est ici...

If Msg2 = vbYes Then
Unload Me
Frm_Identif.Show
txtNom.SetFocus
End If
En fermant ta form, tu fermes ton recordset, normal ;) tu dois chaque fois ré-ouvrir...