使用COMMAND对象时出错求教！

我在一个程序中使用了一个COMMAND对象时出现“类不支持自动化或不支持期望的接口”的错误信息，请问各位高手这是什么原因导致的？
这种情况并不是每一台机上都会出现，我自己安装了8台机都没问题，但其他人装的时候就出现过这问题，郁闷...以下是代码：
Private Sub OK_cmd_Click()
   '输入有效性效验
On Error GoTo errInput
   If MName_txt.Text = "" Then
      MsgBox "请输入会议名称！", vbInformation, "提示"
      Exit Sub
   End If
   If MAddr_txt.Text = "" Then
      MsgBox "请输入会议地址！", vbInformation, "提示"
      Exit Sub
   End If
   If Mdate_txt1.Text = "" Or Mdate_txt2.Text = "" Or Mdate_txt3.Text = "" Then
      MsgBox "请输入完整的会议日期！", vbInformation, "提示"
      Exit Sub
   End If
   If Mtime_txt1.Text = "" Or Mtime_txt2.Text = "" Then
      MsgBox "请输入完整的会议时间！", vbInformation, "提示"
      Exit Sub
   End If
   Dim dates, times As Date
   dates = CDate(Mdate_txt1.Text & "-" & Mdate_txt2.Text & "-" & Mdate_txt3.Text)
   times = CDate(Mtime_txt1.Text & ":" & Mtime_txt2.Text & ":00")
   '添加到数据库
On Error GoTo errTrap
   'connectionDB
   Dim cmd As New ADODB.Command
   Dim CMDstr As String
   CMDstr = "insert into Meet_tbl (meet_name,meet_addr,meet_date,meet_time,meet_type) values('" & MName_txt.Text & "','" & MAddr_txt.Text & "','" & dates & "','" & times & "','" & Mtype_Combo.ListIndex & "')"
   cmd.CommandText = CMDstr
   cmd.ActiveConnection = conn
   cmd.Execute
   MsgBox "增加会议成功！", vbInformation, "提示"
   Set cmd = Nothing
   '刷新MSFG
   MeetMag_Form.refurbish_MSFG
   Unload Me
   Exit Sub
errTrap:
    MsgBox "增加会议错误:" & Err.Description, vbCritical, "错误"
    On Error GoTo 0
    Exit Sub
errInput:
    MsgBox "输入错误:" & Err.Description, vbCritical, "错误"
    On Error GoTo 0
    Exit Sub
End Sub