源代碼沒問題,打包到工作站上運行出錯,請指教 ?

Question

Option Explicit
Private rsUser As New ADODB.RecordsetPrivate Sub Form_Load()
    If rsUser.State = adStateOpen Then rsUser.Close     rsUser.Open "select top 1 use_no from Stock_users", CN, dOpenDynamic, adLockOptimistic
......
   在這句出錯,不知為何? If rsUser.State = adStateOpen Then rsUser.Close 
Error:
Run time 430
Class does not support Automation or does support expected interface 請幫忙

Answer 1

打包確實沒問題? ADO打上去了嗎？

Answer 2

Option Explicit
Private rsUser As New ADODB.RecordsetPrivate Sub Form_Load()
    set rsUser = New ADODB.Recordset
    rsUser.Open "select top 1 use_no from Stock_users", CN, dOpenDynamic, adLockOptimistic
......

Answer 3

是ADO打包的問題,已解決,謝謝各位!