Saludos a todos los que colaboran en este foro
Estoy devuelta aqui con una pregunta
Tengo este pequeño ejemplo de un DataReport sin el DataEnviroment y funciona bien, pero al modificarlo me marca error, es decir le agrego un campo mas a la base de datos y tambien se lo agrego al DataReport es la primera vez que trabajo con DataReport

[Private Sub obtener_reporte()
Dim cadena, sql, path As String
Dim i As Integer
path = App.path & "\db1.mdb"
Set conex = New ADODB.Connection
Set record = New ADODB.Recordset
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Persist Security Info=False"
conex.ConnectionString = cadena
conex.Open cadena
sql = "select * from tabla"
record.LockType = adLockOptimistic
record.CursorLocation = adUseClient
record.CursorType = adOpenDynamic
record.Open sql, conex
With DataReport1
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = record.DataSource
For i = 1 To 3
.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

End Sub

Private Sub Command1_Click()
obtener_reporte
End Sub]

Este es el error

Error "438" en tiempo de ejecucion

El objeto no admite esta propiedad o metodo