Crystal Report - Seccion "Detalles" no reconoce query

Hola a todos

Tengo este problema con un reporte que lleno con un query a una base de datos de Access...

Resulta que aun y cuando le digo en el query los campos especificos que necesito, me muestra de todas formas todos los registros de mi base de datos. Esto se soluciona cuando pongo los campos en la seccion "Encabezado de página", ahi si le hace caso al query, pero no es como yo lo quiero.

Aqui esta el codigo que uso para llenar el query:

------------------------------------------------------------------------------------------------------------
Dim VentasDet As New rptVentasDet()
Dim con As New OleDb.OleDbConnection
Dim strDB = System.IO.Directory.GetCurrentDirectory() & "Datos.mdb"
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDB & ";" & _
"User Id=;Password=;"

Try
Dim strQuery As String = "SELECT Ventas.Caja, Ventas.Folio, Ventas.Fecha, " & _
"Articulos.Codigo, Ventas.Precio, Ventas.Cantidad, " & _
"Ventas.Descuento, Ventas.IVA, Ventas.Importe " & _
"FROM Ventas INNER JOIN Articulos ON Ventas.CodArticulo = Articulos.Codigo " & _
"WHERE Ventas.Fecha = #" & Date.Today & "#"

Dim objCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(strQuery, con)
con.Open()

Dim objAdapter = New OleDb.OleDbDataAdapter(objCommand)
Dim ds As New DataSet()

objAdapter.SelectCommand = objCommand

objAdapter.Fill(ds, "Ventas")

VentasDet.SetDataSource(ds)
crvReportes.ReportSource = VentasDet
con.Close()

Catch ex As OleDb.OleDbException
MsgBox(ex.Message)
End Try

------------------------------------------------------------------------------------------------------------

En este caso, tengo una venta en la tabla "Ventas", del articulo de codigo "001", y en la tabla "Articulos" tengo 3 articulos, codigos "001", "002", "003". El reporte si me muestra correctamente la caja, el folio, la cantidad, precio, etc, pero los muestra una vez con cada articulo que tengo en la table "Articulos".

En vez de mostrar:

Caja, Folio, Articulo, Precio, Cantidad, ---
01, 000001, ARTICULO 1, 15.00, 2, ---

muestra:

Caja, Folio, Articulo, Precio, Cantidad, ---
01, 000001, ARTICULO 1, 15.00, 2, ---
01, 000001, ARTICULO 2, 15.00, 2, ---
01, 000001, ARTICULO 3, 15.00, 2, ---

Alguien tiene alguna idea de que estoy haciendo mal?

Se los agradezco de antemano

Perdon, se me olvido...

Uso:

VB.NET de VS2008 Profesional
Access 2003

Gracias