各位来看看，帮帮忙！！！！！！！！

[远程Scada]

Set dbsContent = OpenDatabase(StrDbPath)
sql = "select * from ITEM "
Set datContent = dbsContent.OpenRecordset(sql)

为什么出现类型不匹配的错误啊！！

[AechoJohn]

我试了一下，没有问题呀！
Dim dbsContent As dao.Database
Dim sql As String
Dim datContent As dao.Recordset
Dim strDbPath As String

'在此处可以指定别的数据库
strDbPath = App.Path & "\Lib\STDEPSE.mdb"
Set dbsContent = dao.OpenDatabase(strDbPath)
sql = "select * from CT "
Set datContent = dbsContent.OpenRecordset(sql)

datContent.Close
Set datContent = Nothing
dbsContent.Close
Set dbsContent = Nothing

[lihonggen0]

同意楼上

[远程Scada]

谢谢江江：
问一下：“Dim datContent As dao.Recordset”
为什么要指定dao，直接Dim datContent As Recordset 不行吗？

[koa3000]

set dbsContent = dao.OpenDatabase(strDbPath)
Set datContent = dbsContent.OpenRecordset(sql)
因为 数据库dbsContent 是采用 dao 打开的，所以datContent 要用dao，这样类型才相同。

直接用也是可以的，但关键是你的库里面要有，并保证数据库与记录集的定义一致。

比如， 如果你引用进来 ado ，你也可以用 ado来操作数据库。

dim cn as adodb.conncetion
dim rst as adodb.recordset

cn.open "………………"
Set rst = cn.Execute("Select * From CT")

[深渊的水影]

。。。。。