Visual Basic - problema data report

HOla
tengo un problema. Quiero abrir en un programa de visual basic un data report y la base de datos esta en access. Lo tengo asi:

Set rs = New ADODB.Recordset

str = "select * from [Ventas Consulta] where [IdVenta]='" & idVta & "'"

rs.Open str, adoCn, adOpenKeyset, adLockOptimistic

Set drptSales.DataSource = rs
drptSales.Show


donde adoCn es mi conexion

y me manda un error que dice

<Variable de tipo Object o la variable de bloque With no está establecida>

¿Que deco hacer para corregirlo?

gracias