关于Fields的用法

Question

我用combol做了一些框选,意思比如说：房建=壹级等号左右两边都是combol做的，左边与数据库的字段明对应，因为是建筑业用的资质之类，比较多，一共提供了30个选项，如上等号左边的房建等字段一共有六十来个
在实现录入时写了下面的代码，但出错了，请大师们指教有什么好点的办法
因为字段很多有六十多个，怎么样才能自动对应呢？？？谢谢
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
For i = 0 To 29
Dim y As String
Dim z As String
Dim x As String
y = Combo16(i).Text
z = Combo17(i).TextIf z = "特级" Then
x = "0"
ElseIf z = "壹级" Then
x = "1"
ElseIf z = "贰级" Then
x = "2"
ElseIf z = "叁级" Then
x = "3"
ElseIf z = "无等级" Then
x = "5"
Else: z = "无"
x = ""
End If
If y <> "无" Then
Adodc1.Recordset.Fields("y") = x
End If
Next iAdodc1.Recordset.Update
End If

Answer 1

改为:
Adodc1.Recordset.Fields(y)   =   x 

Answer 2

谢谢已经解决了
Adodc1.Recordset.Fields(Combo16(i).Text )   =   x