怎样向数据库中增加多条记录

[lovessll]

我想用循环语句向数据库中增加多条记录该如何操作呀。比如我想向数据中中增加10条记录。表的字段分别为：序号，成绩（a）,成绩（b）。我想把成绩：1 95 95；2 85 85； 3 65 45； 4 98 98； ……10 84 74 。全部加入数据库中，怎样循环呀！
或者添加更简单的，把1到10 所有的成绩都设为 95 85，该如何操作。恳请达人帮帮忙啦！万分感谢！

[fvflove]

'打开数据库，表等操作我就不说了。只说增加数据。
Type DataInfo
  Num as long  '序号
  A as long    '成绩(A)
  B as long    '成绩(B)
end type

dim Data(1 to 10) as DataInfo '10条记录

for i=1 to 10
  data(i).Num=i
  data(i).A= 95 '所有A成绩设为95
  data(i).B=85  '所有B成绩设为85
  
  'A成绩与B成绩你可以一个一个设也行，从文件中读取也行。
  
next

for i=1 to 10
  rs.AddNew
  
   rs!序号=data(i).Num
   rs!成绩(A)=data(i).A
   rs!成绩(B)=data(i).B
   
  rs.Update
  
next  

[lovessll]

楼上的朋友，在VB6中如何实现呀！

[lovessll]

楼上的朋友，安你的方法还是不行呀，有没有朋友帮帮忙呀，很急，好心的朋友救救急吧！在线等待

[lovessll]

解决啦，谢谢大家了