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

那就看这些变量有没有定义啊

楼上跟没曰一样

楼主是不是没定义怎么连接数据库啊

就看见一个SQL语句

但是具体连接到哪个数据库你没说啊

而且还没有发全   你可以检查下看看吗

换种方法  我不喜欢这样查询

这样查询问题也不大，但是建议楼主提供完整源代码，至少要告诉我们cn是怎么来的

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