Ayuda en consulta

KaRN
09 de Julio del 2003
Private Sub submasvend_Click()
If rs.State = 1 Then
rs.Close
End If
rs.Open "SELECT " _
& "PRODUCTO.NOM_PROD," _
& "SUM(CANT_PROD) AS CANT_VEND, " _
& "PRODUCTO.COD_PROD " _
& "FROM PRODUCTO, DETALLE_VENTA " _
& "WHERE PRODUCTO.COD_PROD = DETALLE_VENTA.COD_PROD " _
& "GROUP BY PRODUCTO.COD_PROD " _
& "ORDER BY SUM(CANT_PROD) DESC", conn

If Not rs.EOF Then
Set DataReport4.DataSource = rs
DataReport4.Show
Else
MsgBox "NO EXISTEN PRODUCTOS"
End If
End Sub

******************************************
en este click, me da un error diciendo que "NOM_PROD" no es un elemento valido para una funcion agregada o algo por el estilo...
lo que intento hacer es en base a ods tablas extraer los datos de estas tablas relacionandolas por, en este caso, COD_PROD