vb中的问题“实时错误‘－2147217887（80040e21)':多步OLE DB操作产生错误，请VB高手帮忙看一下。

这是窗口的一段代码，此窗口用于向数据库的一张表中新增信息，运行时窗口无法打开，提示上述信息，其他几个类似的窗口如查询信息等窗口也有类似问题，且都在以下语句处出错。
Private Sub Form_Unload(Cancel As Integer)
source0 = DataEnvironment1.Recordsets(1).Source
activeconnection0 = DataEnvironment1.Recordsets(1).ActiveConnection
DataEnvironment1.Recordsets(1).Close

DataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3（就是这句显示出错）

End Sub

你说的我不太明白，可否再细化一点

多步OLE错误.一般来说都是字段的长度过长.或者字段含有不可识别的错误.所以会报这个错.你检查一下.

你好！ 争议参考答案 泉水挑不干，知识学不完。 希望对你有所帮助，望采纳。