vb的弱小问题

[baobaofall]

自定义类型如下

Type siharaijyokenn
kubunn As Integer
End Type

Global siharaijyoke As siharaijyokenn

选择是哪一个optionbutton得到焦点
GC_MAXTENPIAO_NUM 是个常数



Public Function initSql()
Const DF_FUNCTIONID = "initSql"
Dim lintForIndex As Integer
initSql = False
On Error GoTo ErrHandler
With siharaijyoke
For lintForIndex = 0 To GC_MAXTENPIAO_NUM
If optSyubetu(lintForIndex).Value = True Then
.kubunn = lintForIndex
End If
Next
End With
initSql = True

Exit Function
ErrHandler:
Dim ErrObject As udtErrObject
Call SaveError(ErrObject)

End Function

问题出在exit function时 自定义类型成员siharaijyoke的成员kubunn被赋为出错信息
对象变量或with模块变量没有设置

望高手得空赐教下 ，一点小分意思一下， 拜谢 。在线等待~