Do While Not mrc.EOF
            Combo1(0).AddItem mrc.Fields(0)

            mrc.MoveNext
        Loop

Do While Not mrc.EOF                         '没到最后一条记录
            Combo1(0).AddItem mrc.Fields(0)          '把第一个字段的值添加到 combo1(0) 的下拉列表中去.

            mrc.MoveNext                      '下一条记录
        Loop                                 '继续循环

谢谢斑竹，谢谢大侠