DataReport打印报表的问题，高手请帮忙啊．

Question

Private Sub Command1_Click()
connstr = "Driver={SQL Server};Server=10.139.21.54\HKHA_SDMS;Uid=sa;Pwd=hkha;Database=SDMS"
conn.Open connstr
sSQL = "Select * from Slope_Detail"rs.Open sSQL, conn, adOpenKeyset, adLockReadOnly
Set DataReport1.DataSource = rs
DataReport1.Show
End Sub
Private Sub DataReport_Initialize()
        With DataReport1
                .Sections("Section1").Controls("Label1").Caption = "介绍："
                .Sections("Section1").Controls("Text1").DataField = rs("SD_FeatureNo")
        End With
End Sub
程序运行到＂.Sections("Section1").Controls("Text1").DataField = rs("SD_FeatureNo")＂就提示＂未找到DataField ＂
我已经在Section1区域放了一个ＴＥＸＴ１的文本框．
不知道是什么原因呢？

Answer 1

自己解决了，
在Sections("Section1").Controls("Text1").DataField = rs("SD_FeatureNo")
应该写成
Sections("Section1").Controls("Text1").DataField = ＂SD_FeatureNo＂数据库字段名称