Gelera,
Estou usando a consulta abaixo para tentar executar uma consulta no acces passando um parâmetro.

Me retorna o erro:
Item não encontrado nessa coleção

Sub RunParameterQuery()
'Step 1: Declare your variables
Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset


Dim i As Integer


'Step 2: Identify the database and query
Set MyDatabase = DBEngine.OpenDatabase _
("C:meubanco.accdb")
Set MyQueryDef = MyDatabase.QueryDefs("minhaConsulta")

MyQueryDef.Parameters("[ANO-MES]") = "2012" ERRO:( Item não encontrado nessa coleção )

'Step 4: Open the query
Set MyRecordset = MyQueryDef.OpenRecordset

'Step 5: Clear previous contents
'Sheets("plan1").Select
'ActiveSheet.Range("A6:K10000").ClearContents

'Step 6: Copy the recordset to Excel
ActiveSheet.Range("A7").CopyFromRecordset MyRecordset

'Step 7: Add column heading names to the spreadsheet
For i = 1 To MyRecordset.Fields.Count
ActiveSheet.Cells(6, i).Value = MyRecordset.Fields(i - 1).Name
Next i