我已经改过来了 可是提示 datafield'空' 这是怎么回事啊

Question

Private Sub DataReport_Initialize()
Dim adoconnectionx As New ADODB.Connection

Dim adorecordsetx As New ADODB.Recordset

Dim mpath$, mlink$, sql$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "provider=microsoft.jet.oledb.4.0;"
mlink = mlink + "data source=" + mpath + "XX.mdb"
adoconnectionx.Open = mlink
sql = "select * from XXtable"

adorecordsetx.Open sql, adoconnectionx

Set DataReport1.DataSource = adorecordsetx

Me.Sections("section1").Controls("text1").DataField = adorecordsetx.Fields.Item(0).Name

Me.Sections("section1").Controls("text2").DataField = adorecordsetx.Fields.Item(1).Name

Me.Sections("section1").Controls("text3").DataField = adorecordsetx.Fields.Item(2).Name

Me.Sections("section1").Controls("text4").DataField = adorecordsetx.Fields.Item(3).Name

Me.Sections("section1").Controls("text5").DataField = adorecordsetx.Fields.Item(4).Name

Me.Sections("section1").Controls("text6").DataField = adorecordsetx.Fields.Item(5).Name

Me.Sections("section1").Controls("text7").DataField = adorecordsetx.Fields.Item(6).Name

End Sub
这个代码总是出现问题 请帮我改下
问题出现在这里adoconnectionx.Open = mlink
提示。open缺少函数或变量
谢谢了！！！
adoconnectionx.Open = mlink
改为
adoconnectionx.Open mlink

Answer 1

adoconnectionx.Open = mlink改为adoconnectionx.Open mlink我已经改过来了 可是提示 datafield'空' 这是怎么回事啊可改为:With DataReport1Set .DataSource = adorecordsetx.DataMember = ""With .Sections("Section1").ControlsFor i = 1 To .CountIf TypeOf .Item(intctrl) Is RptTextBox Then.Item(i).DataMember = "".Item(i).DataField = adorecordsetx.Fields.Item(i - 1).NameEnd IfNext iEnd WithEnd With