Visual Basic - datareport

buen dia, tengo este codigo para enviar datos al datareport:

With DataReport1
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = record.DataSource
For i = 2 To 10
.Sections("sección1").Controls.Item(i).DataMember = ""
.Sections("Sección1").Controls.Item(i).DataField = record.Fields(i - 1).Name
Next i
End With
DataReport1.Show

el problema es me muestra error: el objeto no admite esta propiedad o metodo, donde esta el error ya no veo.
gracias