数据插入时发生【3219 在此环境中不允许应用程序请求的操作】的错误

Question

某个个字符串类型的列，因为需要插入的数据里面可能存在双字节字符被截断的字符，直接插入会提示错误，所以插入数据时希望用流的方式插入。代码：
Dim Stm As ADODB.Stream
Set Stm = New ADODB.Stream
Stm.Type = adTypeText
Stm.Charset = "UTF-8"
Stm.Open
Stm.WriteText "aaaaaa"
Dest.Fields(i) = Stm.Read运行到最后一句的时候会提示【3219 在此环境中不允许应用程序请求的操作】
请高手指点一下怎么解决这样的问题。

Answer 1

Dim Stm As New ADODB.Stream
试试

Answer 2

Dim Stm As ADODB.Stream
Set Stm = New ADODB.Stream
Stm.Type = adTypeText
Stm.Charset = "UTF-8"
Stm.Open
Stm.WriteText "aaaaaa"
''''''''''''注意以下两句的改动''''''''
Stm.Position = 0
Dest.Fields(i) = Stm.ReadText