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

  在用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


--------------------编程问答-------------------- If rstcbo.RecordCount <> 0 Then

改为  if not rstcbo.eof then

91错误 是连接数据库出错或者查询出错 没有结果时候 那个属性石木有值的 --------------------编程问答-------------------- 估计是没有与数据库建立连接

补充：VB ,  数据库(包含打印，安装，报表)