ado连接excel数据库问题

442039099

我想每当workbook打开时，就自动判断一下数据库内是否为空

Private Sub Workbook_Open()
    '每当workbook打开时，就判断excel数据库是否为空
    Dim conn, rst As Object
    Dim sql As String
    Set conn = CreateObject("adodb.connection")
    Set rst = CreateObject("adodb.recordset")
    conn.Open "provider=microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\数据库.xlsx"

    sql = "select * from [数据库$]"
    rst.Open sql, conn, 1, 3
    '下面代码怎么写，请大神指点。。。。




    rst.Close
    conn.Close
    Set rst = Nothing
    Set conn = Nothing
End Sub

442039099

已经测试过了，将下面的代码填进去，不起作用
if rst.recordCount < 1 then
    msgbox "数据库为空"
endIf

442039099

在线等大神解答

442039099

用什么方法才能判断数据库不是空的

442039099

有人看吗