Set rs = cn.Execute("SELECT distinct 编号 FROM 国家码") '选择下拉菜单（这句话出错对象变量或with块未定义，不知为何）
    rs.MoveFirst
    Do
        Combo7.AddItem rs.Fields(0).Value
      '  Combo3.AddItem rs.Fields(1).Value
        rs.MoveNext
    Loop Until rs.EOF
    Exit Sub

多谢各位，问题已解决，存盘数据库放在本目录下就行了