combo 与数据库表字段的绑定问题

使用combo box，想直接关联sql employee表里面的emp_id字段

Private Sub Form_Load()
  txtSQL = "select dep_id from employee"
  Set mrc = ExecuteSQL(txtSQL, MsgText)
  Do While Not mrc.EOF
  Combo1.AddItem (mrc.Fields(0))
  mrc.MoveNext
End Sub
这么写报错，提示“子程序或函数未定义”，请高手指点下，多谢 --------------------编程问答-------------------- ExecuteSQL 这是个自定义函数，你抄来的代码没抄全，还要把
function ExecuteSQL（xx,yy）

''''数据库连接代码
end function

一起复制过来 --------------------编程问答-------------------- 另一贴已经有人回答过了 “3)查看ExecuteSQL函数是否存在”
我就猜你是看不懂他说什么，我楼上的意思和他是一样的。 --------------------编程问答--------------------



Set oRs = New ADODB.Recordset

    txtSQL = "select dep_id from employee"

    Combo1.Clear

    oRs.Open txtsqlSQL,DCN, adOpenStatic, adLockOptimistic, adCmdText

    If oRs.RecordCount > 0 Then

        For i = 1 To oRs.RecordCount

           Combo1.additem oRs!dep_id

           oRs.MoveNext

        Next

    End If

    oRs.close

    set oRs=nothing

补充：VB ,  基础类