我觉得是循环错了,因为不加循环的话就不会出错
Dim I, j
j = List2.ListCount
For I = 0 To j
strSQL = "insert into ([no],[time]) values ('" & List2.List(I) & "','2005-06-10 19:56:52')"
cn.Execute strSQL
Next
Dim I, j
j = List2.ListCount
For I = 0 To j
strSQL = "insert into ([no],[time]) values ('" & List2.List(I) & "','2005-06-10 19:56:52')"
cn.Execute strSQL
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货