SQL - que esta mal?

Private Sub cmdAceptar_Click()
If Option1(0).Value Then
frmTortilleria.strInsert = "select * from producto"
End If

Set frmTortilleria.rstConsulta = New Recordset
frmTortilleria.rstConsulta.Open frmTortilleria.strInsert, frmTortilleria.conexion, _
adOpenForwardOnly, adLockOptimistic

Set ActiveReport1.DataControl1.Recordset = frmTortilleria.rstConsulta
ActiveReport1.Show
End Sub

me sale esto

error de compilacion
No se encontro el metodo o el miembro de datos

y se snombrea donde dice DataControl1 porque que me falta?

Hola yo uso activereports con VB6 y lo haria asi:

ActiveReport1.DataControl1.Connection = frmTortilleria.conexion ActiveReport1.DataControl1.Source = frmTortilleria.strInsert
ActiveReport1.Show

Dejando que activereports se encargue de la consulta.