Dim rs As ADODB.Recordset

Set rs = Conn.Execute("Select name from centre where ctrno = 'E01'")
Set DataReport4.DataSource = rs

Do Until rs.EOF
If Not rs.EOF And Not rs.BOF Then

DataReport4.Sections("Section1").Controls.Item("Text1").DataField = rs("name")

rs.MoveNext
End If
Loop

SetDefPrinter Me, myPaperSizeA4, myOrientLandscape
DataReport4.Show

The problem is when I compile it, it gives me an error message "DataField <centre name> not found"

When I change the query to ("Select name from centre where ctrno = ' ' "), the same error message appears with a centre name after it bypass several centre name without any error message.

* <centre name> is the value stored in rs("name")

Does anyone have any idea what's wrong with this code? Thanks in advance