要用ACTIVE对象做啊,一定给分

解决方案 »

  1.   

    对不起,以上的COMBOLIST是COMBOBOX,笔误
      

  2.   

    sql="select * from YourTable where Id='" & xxx & "'"
    set rs=cn.openrecordset(sql,opendynamic,rdconcurvalues)
    combobox.clear
    do while not rs.eof 
    combobox.additem rs!Id
    rs.movenext
    loop
      

  3.   

    to applekiller() :
       这段程序在combobox.clear的前面应该再加上:
       if rs.bof and rs.eof then exit sub
       否则可能出错。
      

  4.   

    只要
    if MyRS.EOF Then Exit Sub
    就足够了