rptOrientPortrait 变量未定义

我的VB上已打上了SP5  使用VB的datareport 控件打印报表
我下载的一个程序运行没有错误,
我把它照搬过来就报错了 
Case "printone"
       If Toolbar1.Buttons(1).Caption = "所有月份" Then
         If sql1 <> "" Then
           DE1.rsCommand2.Open "select * from " & sql1 & " order by 所属工资月份,员工编号"
         Else
           DE1.rsCommand2.Open "select * from 工资表 order by 所属工资月份,员工编号"
         End If
       Else
         If sql1 <> "" Then
           DE1.rsCommand2.Open "select * from " & sql1 & " and 所属工资月份=(select 月份 from 月份表) order by 所属工资月份,员工编号"
         Else
           DE1.rsCommand2.Open "select * from 工资表 where 所属工资月份=(select 月份 from 月份表) order by 所属工资月份,员工编号"
         End If
       End If
      DR1_gzt.Orientation = rptOrientPortrait
       
       DR1_gzt.Show 1


DR1_gzt为dataReport 控件
请问问题是出在那里了.
我实在是找不见 --------------------编程问答-------------------- 报什么错误?

补充：VB ,  基础类