使用for循环执行SQL语句

Question

获取错误

  

目标列数和查询数不相同......

请帮忙

db.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\New folder (2)\cri.mdb;Persist Security Info=False")
s1 = "select MAX(teamid) from player"
Set rs = db.Execute(s1)
v = rs(0)
For Index = 1 To 2

db.Execute ("insert into player values('" & Str(v) & "' ,'" & p1(Index).Text & "'," & age1(Index).Text & "," & avg1(Index).Text & ")")

Next Index
db.Close