调试出错--类型不匹配

aping

Private Sub 命令0_Click()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("d:\My Documents\Access\123.mdb")
Set rs = db.OpenRecordset("select * from 台帐")    '调试出错类型不匹配???
If rs.RecordCount > 0 Then
MsgBox "数据库能够导出!"
Else
MsgBox "数据库为空,不能导出!"
End If
DoCmd.Close
End Sub

想了一天了,谢谢哪位高手指点一下!我编的程序就差这一口气了!

我的目的是要判断一个表是否为空表.

zhouyunliang

Dim db As dao.Database
Dim rs As dao.Recordset

chenwm1973

Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset

t小宝

楼主使用了DAO,应该象2楼的声明

aping

非常感谢，问题已解决。