text控件动态帮定ADODB.Recordset，怎么报classid错误

Option Explicit
Public rsDw As ADODB.Recordset
Public cnn As ADODB.Connection
Public strMaxNum As String
Public blnIsSQL As Boolean
Public intNumWindows As IntegerPrivate Sub Form_Load()
    Dim txtSQL As String
    
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
    txtSQL = "SELECT * FROM DWB"
    Set rsDw = New ADODB.Recordset
    rsDw.CursorLocation = adUseClient
    rsDw.Open txtSQL, cnn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = rsDw
    
    Set txtdepartment_id.DataSource = rsDw
    txtdepartment_id.DataField = "i_xh"
    Set txtdepartment_name.DataSource = rsDw
    txtdepartment_name.DataField = "C_dwname"
End Sub
这样子vb的变成环境下可以运行，但是打包后在没有vb的编程环境下就报classid错误