Visual Basic - Donde esta el error?

Hola a todos, de nuevo les molesto por estas dos 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)


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 (((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