关于"active component不能创建对象"的问题

Question

本人用vb做银行管理系统时的，用账号生成系统卡类分为VISA 、AMERICNA、MASTER银行卡但是出现“active compent不能生成对象”的错误。请问各位大虾，这是为何呢！
    我以前，用过一次是可以的，如果重启后又会不行了。
   请大家指点迷津，谢谢了！！
   这是本人出错的一小段代码:
   Private Sub cmdSave_Click()
Dim var As New ValidateCard
If var.ValidateCard(Trim(t_cardid.Text), Trim(Combo1)) = 1 Then
MsgBox "对的！"
intstatus = 1
For Each Control In frmbankcard
    If TypeOf Control Is TextBox Then
       If Control.Text = "" Then
          MsgBox "please enter full informaition!!"
          intstatus = 0
          Exit For
        End If
     End If
Next
 If intstatus = 1 Then
    rstActor!bankcard_UserId = t_id
    rstActor!bankcard_CardId = t_cardid
    rstActor!bankcard_CardType = Combo1
    rstActor!bankcard_Status = "可以启用"
    rstActor!bankcard_AddDate = Now()
    rstActor.Update
    MsgBox "祝贺你！！信用卡添加成功！！", vbOKOnly, "银行卡号系统"
    'rstActor.MoveNext
    Call fillList
    Call disallow
    End If
    Else
MsgBox "错的！"
End If
End Sub