数据库为空时加载用户表单时出错

Question

数据库表为空白，我编写了VBA用户表单，以便从数据库表中加载Userform_Initialize中的客户和用户列表。

现在我收到了EOF_BOF错误，因为表格中没有数据。我必须关闭用户表单。

我应该怎么做才能在数据库空白时收到错误。

以下是代码。

Sql = "Select DISTINCT [Exec] from tblKPI"
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, conn, adOpenStatic
rs.Movefirst
    With frmReport.lstUser
    .Clear
    Do
        .AddItem rs![exec]
        rs.MoveNext
    Loop Until rs.EOF
End With


'update Customers
Sql = "Select DISTINCT Customer from tblKPI"
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, conn, adOpenStatic
rs.Movefirst
    With frmReport.Customer
    .Clear
    Do
        .AddItem rs![Customer]
        rs.MoveNext
    Loop Until rs.EOF
End With

Answer 1

伪代码：在每个class="incident"之前添加vh。