datareport中的一个问题！

Question

大家好：
　　　小弟现遇一个问题，需要大家帮忙，就是datareport1.datasource =dataenvironment1
这样写可不可以，怎么老是出问题呀，谢谢！

Answer 1

用邦定的方式吧
 DateMember : command1
 datasource :dataenvironment1

Answer 2

有没有详细一点的呀.
高手看一下呀,下面有什么不妥呀,小弟在此多谢了
With DE2.rsCommand1
 If .State = adStateOpen Then
  .Close
  End If
 .Source = "select * from overtime where 工号='001'"             '这两句有没有问题呀??
 .Open ("select 工号 from overtime where 工号='001'") End With
  With DR2                                      '将dataenvironment2 改名为de2
  Set .DataSource = DE2.rsCommand1               '将datareport2 改名为dr2  .DataMember = Command1
  .Sections(3).Controls("txt加班日期").DataMember = Command1
  .Sections(3).Controls("txt加班日期").DataField = 加班日期
---------------------------------------
  
.Show
 
End With

Answer 3

大家好:帮我看一下,下面这句话哪儿出了问题,老是说下标出界
我在datareport 中的 sections3 中新建一个text1Dim 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")
Set DR2.DataSource = Rs下面这句错在哪呀?datareport.Sections.Item("Section3").Controls("Text1").DataField = Rs.Fields(0).Name