老程序了，问题多多

Question

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" 就出错

Answer 1

以前在2000下编写的。。现在在业主想在XP环境下运行