组合框中值更新到表中

在窗体上有10个组合框，组合框的名称分别为combo1， combo2...combo10,表1中两个字段ID， 和姓名，我要根据组合框中的值更新到表中数据我是这样写的

Dim ssql As String
Dim i As Integer
Dim ls(1 To 10) As String
For i = 1 To 10

ls(1)=nz(combo1.value)

ls(2)=nz(combo2.value)

...

ls(10)nz(combo10.value)

ssql = "UPDATE 表1 SET 姓名=  '" & ls(i) & "' where ID=" & i
DoCmd.RunSQL ssql

End If
Next

这样是可以就实现了一下子把10个组合框里的姓名a,b,c,d,e,f,g,h,i,j,依次添加到表中，结果如下表

我想是不是可以不用变量ls，直接定义dim combo（1 to 10）as string 就是红色部分不要，因为combo的编号和Id编号一致，直接用

ssql = "UPDATE 全校老师任课表 SET 老师ID =  '" & combo(i) & "' where ID=" & i
DoCmd.RunSQL ssql

但是有错误，是不是不能用，还是句子格式有问题

请各位兄弟帮忙，谢谢！