求助，关于 INSERT INTO

主要问题：如果表是空的，maxid = Cnn.Execute(Sql2).Fields(0).Value + 1返回值是空，因此插入时报错。
   增加判断If IsNull(maxid) Then       maxid = 1

  Sql2 = "select max(id) from 数据"'源程序中[数据]的方括号去掉
   For X = ks To js
     maxid = Cnn.Execute(Sql2).Fields(0).Value + 1
     if IsNull(maxid) Then  maxid = 1（如果表格为空表，那么上条语句结果maxid为null，所以报错，增加个判断）
        Sql = "insert into 数据 values(" & maxid & "," & X & "," & Combo1.Text & ",'" & Combo2.Text & "',#" & Label1.Caption & "#)"'源程序的[去掉
        Cnn.Execute (Sql)
   Next

学习了。资料宝贵。