急---datareport中 下标越界???

Question

各位好心人:
 下面代码在运行时,下标越界!请高手指点一下,多谢!!!!!!!!!!!!!!!!
Private Sub DataReport_Initialize()
  Dim Conn As New ADODB.Connection
Conn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=sql_ado1_bw"Dim Rs As New ADODB.Recordset
Set Rs = Conn.Execute("Select * from overtime where 工号='001'")Set DR2.DataSource = Rs
 DR2.Sections.Item("section3").Controls("Text1").DataField = Rs.Fields(0).Name
 End Sub

Answer 1

Rs.Fields(0).Name
从你的程序看来只有这个地方有下标越界的可能

Answer 2

检查一下datareport中  TEXT1 .....和 section3 .....对应的位置对不

Answer 3

这样试试：
DR2.Sections.Item("section3").Controls("Text1").DataField = Rs.Fields(0).Name
Set DR2.DataSource = Rs

Answer 4

//DR2.Sections.Item("section3").Controls("Text1")——Item和Control的参数Index必须是数字吧？