老程序了，问题多多

Private Sub UserForm_Initialize()
    
     Set cn0 = New ADODB.Connection
     Set rst0 = New ADODB.Recordset
     cn0.Open "dsn=yanchang;uid=;pwd;"
     
     cn0.Execute "pack JTalarm"
     Set rst0 = Nothing
     Set cn0 = Nothing
     
    
     
     
     
     DTPicker1.Value = Date
     ComboBox1.AddItem "All"
     ComboBox1.AddItem 1
     ComboBox1.AddItem 2
     ComboBox1.AddItem 3
     ComboBox1.ListIndex = 0 
End Sub

运行到这一步 cn0.Execute "pack JTalarm" 就出错
--------------------编程问答-------------------- 把报错信息也贴出来啊。 --------------------编程问答-------------------- --------------------编程问答-------------------- 以前在2000下编写的。。现在在业主想在XP环境下运行。。。

补充：VB ,  VBA