关于Fields的用法

我用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).Text

If 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 i

Adodc1.Recordset.Update
End If