[Resolvido]erro na query

strSQL2 = "SELECT Sum(cp.QTfrota) AS totalfrota"
strSQL2 = strSQL2 & " FROM CustoOper1 AS cp"
strSQL2 = strSQL2 & " INNER JOIN linhas AS ln ON cp.linha = ln.linha "
strSQL2 = strSQL2 & " WHERE Month([cp].[Data]= " & MesProcess
strSQL2 = strSQL2 & " AND Year([cp].[data]))= " & AnoProcess
strSQL2 = strSQL2 & " AND ln.terminal=-1"

onde mesprocess e anoprocess são variávies

mas está dando o seguinte erro :
"A variável do objeto ou a variável do bloco 'With' não foi definida"

Tem de declarar conforme erro indica;

Dim MesProcess As String
Dim AnoProcess As String