VBA Access liste déroulante

Bonjour,

Pb en VBA sur Access sur un champ de liste déroulante

Private Sub Étiquette35_Click()

Dim Salaires As DAO.Database
Dim couts_horaires As DAO.Database
Dim dprenom_nom As DAO.Recordset

DoCmd.OpenForm "couts_horaires"
DoCmd.OpenForm "Salaires"

Set Salaires = CurrentDb

Set dprenom_nom = Salaires.OpenRecordset("Salaires")
dprenom_nom.MoveFirst
MsgBox "nom = " & dprenom_nom & ""

End sub

Salaires et couts_horaires sont 2 formulaires
dprenom_nom est un champ de liste déroulante

Il refuse de me positionner sur le 1er enregistrement et d'écrire dans la MsgBox le nom ???

Merci