在其他电脑上运行正常，但某台电脑上运行出现此错误，错误语句：Set mstream = New ADODB.Stream，试过很多方法还是无解。求高手帮忙，在此感激不尽

[此贴子已经被作者于2018-4-25 20:54编辑过]

方便详细说明一下吗？

试过了打包解决不了（打包全部控件选择了注册）源码如下：
Private Sub Command6_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set mstream = New ADODB.Stream
conn.Open Connstring
rs.Open "select * from ver", conn, adOpenKeyset, adLockOptimistic

CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
Text7.Text = CommonDialog1.FileTitle
Set mstream = New ADODB.Stream——出错在这里，但在其他电脑上试过正常
With mstream
.Type = adTypeBinary
.Open
.LoadFromFile CommonDialog1.FileName
End With
If rs.RecordCount = 0 Then
rs.AddNew
rs.Fields(1) = 1#
rs.Update
End If


rs.Fields(0) = mstream.Read
rs.Fields(1) = CommonDialog1.FileTitle
rs.Update
mstream.Close

End Sub

Private Sub Command6_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stm As New ADODB.Stream
'Set conn = New ADODB.Connection
'Set rs = New ADODB.Recordset
'Set mstream = New ADODB.Stream
conn.Open Connstring
rs.Open "select * from ver", conn, adOpenKeyset, adLockOptimistic

CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
Text7.Text = CommonDialog1.FileTitle
'Set stm = New ADODB.Stream
'Set stm = CreateObject("ADODB.Stream")
With stm  ------按照方法在这个地方出现同样的错误提示！
.Type = adTypeBinary
.Open
.LoadFromFile CommonDialog1.FileName
End With
If rs.RecordCount = 0 Then
rs.AddNew
rs.Fields(1) = 1#
rs.Update
End If


rs.Fields(0) = mstream.Read
rs.Fields(1) = CommonDialog1.FileTitle
rs.Update
mstream.Close

End Sub

KB870669补丁没有打，网上说的控件重新注册什么的全试过，注册表也改过就是解决不了