vb 用循环语句算出一组数放入数组中存入access,但是第二次计算会提示错误,求解答

图片说明
图片说明
图片说明
不是技术股,宝宝心里苦,若有好心人,救我出水土
麻烦大家帮帮我吧,谢谢啦

.open stesql
->
.open

.open strsql
->
.open