Error!救命救命救命！！！能解决的给500分！！！

Question

制作水晶报表的时候建议使用ODBC数据源，这样只要刷新数据源就可以动态刷新报表内容了。
If Right(App.Path, 1) = "\" Then
          Cry1.Connect = "ODBC;DATABASE=" & App.Path & "DATA\ZLGYSR.MDB;UID=;PWD=;DSN=ZLGYS"
        Else
          Cry1.Connect = "ODBC;DATABASE=" & App.Path & "\DATA\ZLGYSR.MDB;UID=;PWD=;DSN=ZLGYS"
        End If
        Cry1.SQLQuery = ""
  
        Cry1.Destination = crptToWindow
        On Error GoTo ERRREP
        If Right(App.Path, 1) = "\" Then
          Cry1.ReportFileName = App.Path & "REPORTS\gys.rpt"
        Else
          Cry1.ReportFileName = App.Path & "\REPORTS\gys.rpt"
        End If
  
        Cry1.WindowState = crptMaximized
        Cry1.Action = 1

Answer 1

注册码不对，无法调用他的api