未定义函数错误,请指点

提示下面代码在BEGIN 那里好象出错

For i = 13 To 84
j = 0
k = 0

Dim dj As String
dj = Adodc1.Recordset.Fields(i).Value

Dim x As String

If dj = "0" Then
begin
x = "特级"
Combo16(j).Text = Adodc1.Recordset.Fields(i).Value
Combo17(k).Text = "特级"
j = j + 1
k = k + 1
End


.....................................



请易做图帮忙看看,谢谢了 --------------------编程问答-------------------- VB没有Begin...End语句！ --------------------编程问答-------------------- if then 

end if

--------------------编程问答-------------------- 问题改决了,谢谢了

补充：VB ,  基础类