急求大神指导。vb+sql做课程设计出现“实时错误'91'对象变量或with变量未设置”

Question

  在用vb+sql做职工操作系统时出现了     “实时错误'91'对象变量或with变量未设置”
代码在下面。急求大神指导
Public Sub cboDataUser()
Dim res As String
Dim txtsql As String
Dim rstcbo As ADODB.Recordset
Dim i As Integer
txtsql = "select UserId from tbUser"
res = ExecuteSQL(txtsql, rstcbo, False)
If rstcbo.RecordCount <> 0 Then
  For i = 0 To rstcbo.RecordCount - 1
    cboLogin.AddItem (rstcbo.Fields(0))
    rstcbo.MoveNext
  Next
End If
End Sub

Answer 1

If rstcbo.RecordCount <> 0 Then改为  if not rstcbo.eof then91错误 是连接数据库出错或者查询出错 没有结果时候 那个属性石木有值的