VB6中出现错误429，Active部件不能创建对象。敢情各位帮忙看下是怎么回事

各位大侠，路过的烦请看看，小弟去年编了一个程序，能用的，今年打算用此程序做毕业设计的。但是今天打开后发现程序不能用了，运行后显示错误哦429，ActiveX部件不能创建对象。由于毕业论文这个月底就要交了，小弟烦请各位帮忙看下哪里有问题，该如何修改
Private StopWatch1 As ccrpStopWatch
Dim one_time As Double
Dim m As Integer

Private Sub Form_Keypress(Keyascii As Integer):  Dim x As Integer:
L1.Visible = False
Line1.Visible = True: Line2.Visible = True
one_time = StopWatch1.Elapsed
n = Data1.Recordset("数字"): i = Keyascii: p = n Mod 2:
Select Case p
   Case 0
     Select Case i
          Case 107
          Open "d:\结果输出偶数.txt" For Append As #1
          Print #1, n, m, "不正确", one_time
          Close #1
          Case 115
          Open "d:\结果输出偶数.txt" For Append As #1
          Print #1, n, m, "正确", one_time
          Close #1
          Case Else
          Open "d:\结果输出偶数.txt" For Append As #1
          Print #1, n, m, "不正确", one_time
          Close #1
     End Select
   Case 1
      Select Case i
          Case 107
          Open "d:\结果输出奇数.txt " For Append As #2
          Print #2, n, m, "正确", one_time
          Close #2
          Case 115
          Open "d:\结果输出奇数.txt " For Append As #2
          Print #2, n, m, "不正确", one_time
          Close #2
          Case Else
          Open "d:\结果输出奇数.txt " For Append As #2
          Print #2, n, m, "不正确", one_time
          Close #2
       End Select
 End Select
 End Sub

Private Sub Form_Load()
Form3.Width = Screen.Width
Form3.Height = Screen.Height
Line1.BorderColor = vbRed
Line2.BorderColor = vbRed

Set StopWatch1 = New ccrpStopWatch
m = 0
End Sub

Private Sub Timer1_Timer()
  Data1.Recordset.MoveNext
  L1.Visible = True
  Line1.Visible = False: Line2.Visible = False
  m = Int(Rnd * 3 + 1)
  Select Case m
    Case 1
         Form3.L1.Left = 0.19 * Form3.Width
         Form3.L1.Top = 0.35 * Form3.Height
         Form3.L1.Width = 0.2 * Form3.Width
         Form3.L1.Height = 0.3 * Form3.Height
     Case 2
         Form3.L1.Left = 0.5 * Form3.Width
         Form3.L1.Top = 0.35 * Form3.Height
         Form3.L1.Width = 0.5 * Form3.Width
         Form3.L1.Height = 0.3 * Form3.Height
     Case 3
         Form3.L1.Left = 0.8 * Form3.Width
         Form3.L1.Top = 0.35 * Form3.Height
         Form3.L1.Width = 0.8 * Form3.Width
         Form3.L1.Height = 0.3 * Form3.Height
    End Select
  L1.Caption = Label2.Caption
  StopWatch1.Reset
  If Form3.Data1.Recordset.EOF Then Form2.Show
End Sub
调试后红色部分显示有问题，但具体咋回事我不知是什么，不知该怎么修改，各位高手救救小弟。小弟万分感谢。