Calculateur de charges VBA Access - Help :-)

Bonjour,

Je n'arrive pas à afficher dans la zone de texte le résultat recherché en fonction des choix dans les zones de liste voici ma portion de code:

Private Sub Form_Current()

Dim strReq As String
Dim objRs As DAO.Database

strReq = "SELECT [Abaques Base Access].Abaques FROM [Abaques Base Access] WHERE Forms!Chiffreur!Service_TMA = [Abaques Base Access].Service de TMA And Forms!Chiffreur!Activités = [Abaques Base Access].Activités And Forms!Chiffreur!Classe = [Abaques Base Access].Classe And Forms!Chiffreur!Type = [Abaques Base Access].Type de Flux And Forms!Chiffreur!Complexité = [Abaques Base Access].Complexité And Forms!Chiffreur!Coordination = [Abaques Base Access].Coordination And Forms!Chiffreur!Recette = [Abaques Base Access].Recette And Forms!Chiffreur!Ass.Recette = [Abaques Base Access].Assistance à recette And Forms!Chiffreur!Tache = [Abaques Base Access].Tâches;"
Set objRs = CurrentDb()
Resultat = objRs.OpenRecordset(strReq)
objRs.Close

If IsNull(Resultat) Then MsgBox ""
End If

Me.Abaques.Value = Resultat

End Sub

Merci :-)