Visual Basic - Que está mal aqui?

Hola a todos, de nuevo les molesto por estas intrucciones SQL, en donde el compilador indica que falta algún argumento.
Espero me ayuden

If cmbBuscar(0).Text = "Enero" Then cad = 1 ‘Por mes
If cmbBuscar(0).Text = "Febrero" Then cad = 2... ‘ y así sucesivamente
cadAño = txtBuscar(1).Text ‘Por año

Set RSVenCon = DBVentas.OpenRecordset("SELECT Ventas_Detalles.Codigo_Articulo, Ventas_Detalles.Articulo, Sum(Ventas_Detalles.Cantidad) AS SumaDeCantidad" & _
"FROM Ventas02 INNER JOIN Ventas_Detalles ON Ventas02.Factura = Ventas_Detalles.Factura " & _
"Where(((month(Ventas02.Fecha)) =" & cad & ") And ((Year(Ventas02.Fecha)) =" & cadAño & "))" & _
"GROUP BY Ventas_Detalles.Codigo_Articulo, Ventas_Detalles.Articulo" & _
"ORDER BY Ventas_Detalles.Articulo", dbOpenDynaset)

Gracias
Saludos cordiales desde Paraguay
Carlos

Una cosa clara que veo mal es que "where " no puede ir con " GROUP BY"
Si quieres agrupar con "GROUP BY" debes utilizar a continuacion "HAVING" y finalmente "ORDER BY"
Lo correcto sería :

SELECT Ventas_Detalles.Codigo_Articulo, Ventas_Detalles.Articulo, Sum(Ventas_Detalles.Cantidad) AS SumaDeCantidad
FROM Ventas02 INNER JOIN Ventas_Detalles ON Ventas02.Factura = Ventas_Detalles.Factura
GROUP BY Ventas_Detalles.Codigo_Articulo, Ventas_Detalles.Articulo
HAVING (((month(Ventas02.Fecha)) =" & cad & ") And ((Year(Ventas02.Fecha)) =" & cadAño & "))" & _
ORDER BY Ventas_Detalles.Articulo

De todas formas, puedes probar a crear la consulta en el ACCESS en modo Diseño, y luego ver el codigo en modo SQL.