eVB通过ADOCE操作数据库的问题

[cheeloo]

联想天玑3000 wince3.0

一个很简单的小程序，点击一个按钮，弹出数据库中的一个字段名。
程序提示错误“An error was encountered while running this program:ActiveX component can't create object”

Adoce30.dll，Adocedb30.dll，adoceoledb30.dll已在Pocket PC中，且工程中已加入Microsoft CE ADO Control 3.0。

程序代码如下:

Option Explicit

Private Sub Command1_Click()

Dim rs 'Recordset
Set rs = CreateObject("ADOCE.Recordset")
rs.Open "Person", "\db.cdb", adOpenDynamic, adLockReadOnly

MsgBox rs.Fields("Name").Name
rs.Close

End Sub

Private Sub Form_OKClick()
App.End
End Sub

[googa]

Set rs = CreateObject("ADOCE.Recordset")
改成
Set rs = CreateObject("ADOCE.Recordset.3.0")
试试看。

[yu_yanjie]

你的组件没注册上，如果按楼上说的修改过还不行的话，
是不是你的工程属性里的组件更新没选always呢？

[cheeloo]

改为Set rs = CreateObject("ADOCE.Recordset.3.0")可以了。
非常感谢，给分了，但为什么好像没给上呢？