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

Question

使用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
这么写报错，提示“子程序或函数未定义”，请高手指点下，多谢

Answer 1

ExecuteSQL 这是个自定义函数，你抄来的代码没抄全，还要把
 function ExecuteSQL（xx,yy）''''数据库连接代码
end function 一起复制过来

Answer 2

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

Answer 3

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