ADO控件和DATA控件的冲突（不能共存）的解决方法-->zhuyiwen转移

WTM1

你知道ADO控件和DATA控件有冲突吗？试一试下面的例子：
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("d:\stock\yline.mdb")
Set rs = db.OpenRecordset("select count(*) as totalcount from yline where 条件") ***
MsgBox (rs(0))
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

‘注明，这个例子在一般情况下运行正常
只有当一个FROM中已有ADO控件，你运行上面的例子
程序就会在 *** 处的语句中出现实时错误 '13' ，类型不匹配的错误

这就是ADO控件和DATA控件的冲突，如果你想共存的话，下面的对你就有用了。

1.如果你是新建一个程序
当你新建一个程序时，在FROM中要先添加DATA控件，再添加ADO控件，OK一切正常
2.如果你已有一个程序，还想添加一个FROM（其中包括DATA控件）
解决方法是：1.新建FORM，建一个DATA控件，输入你要输入的代码，保存文件
2.添加文件，把你原来的工程文件添加进来
3.改变工程属性，把启动对象设置为你原来的工程

注意事项：ADO控件在DATA控件前面加入=“错误”
ADO控件在DATA控件后面加入=“正确”