this record-field "Query" takes a text. So cou can hardcode it or use a parameter. Here an example how it could look like
ParYear = "2014"
GetAnalysis = AnalysisServices.Database("Servername", "Databasename", [Query="YourQuerText Year=" & ParYear & " EVALUATE ........." , Implementation="2.0"])
If this post helps or solves your problem, please mark it as solution (to help other users find useful content and to acknowledge the work of users that helped you)
Kudoes are nice too