是不是下面这样与不行呀?为什么如果有十条记录,则显示的十条记录都是第一条记录的数据?
    Set mrc = ExecuteSQL(txtSQL , MsgText)
    If mrc.RecordCount > 0 Then
        Set RptCourse.DataSource = mrc1
         RptCourse.Sections("Section1").Controls("Label3").Caption = mrc.Fields(1)
         RptCourse.Sections("Section1").Controls("Label5").Caption = mrc.Fields(2)
         RptCourse.Sections("Section1").Controls("Label6").Caption = mrc.Fields(4)
         RptCourse.Sections("Section1").Controls("Label11").Caption = mrc.Fields(5)
    End If