Cadena usando la función Month

Hola, necesito armar una cadena en la cual tengo que preguntar por una fecha que es común a dos tablas. En una tabla la tengo como un solo campo con formato dd/mm/yyyy. Y en la otra tabla tengo un campo para el mes y otro campo para el año.
Más o menos seria así(pero no me funciona)
ValorMes = Month(.Fields("Fecha").Value)
ValorAño = Year(.Fields("Fecha").Value)
Set rsEmpresa = New Recordset
CadenaDatos = "SELECT * FROM INDICEINFLACION WHERE Mes >= " & "#" & Format(ValorMes, "mm/dd/yy")_
& "#" & " AND Mes<= " & "#" & Format(ValorMes, "mm/dd/yy") & "#" & _
" AND Año >= " & "#" & Format(ValorAño, "mm/dd/yy") _
& "#" & " AND Año<= " & "#" & Format(ValorAño, "mm/dd/yy") & "#" & " AND CODEM =" & NroEmpresa
rsEmpresa.ActiveConnection = ConexionNormal
rsEmpresa.CursorLocation = adUseClient
rsEmpresa.Open CadenaDatos, , adOpenKeyset, adLockOptimistic
Necesito que me ayuden porque no sé como armarla. Espero haberme expresado bien. Gracias y saludos