vb变量未定义问题

bChange = False '清除修改标志
  ElseIf gintKHSmode = 2 Then
  Unload Me '卸载当前窗体
  End If
  Unload frmCustom '卸载主调窗体
  frmCustom.strSQL = "SELECT * FROM jxc_cust" '设置主调窗体的SQL语句
  frmCustom.Show '显示主调窗体
End Sub
gintKHSmode处变量未定义
Private Sub CheckInput()
  For i = 0 To 4 '判断第1~5个文本框中是否为空
  If Trim(txtItem(i) & " ") = "" Then
  Select Case i
  Case 0
  str1 = "转仓单号"
  Case 1
  str1 = "转仓日期"
  Case 2
  str1 = "转出仓库编号"
  Case 3
  str1 = "转入仓库编号"
  Case 4
  str1 = "药品代码"
  End Select
  str1 = "【" & str1 & "】不能为空！"
  MsgBox str1, vbInformation + vbOKOnly, "提示"
  txtItem(i).SetFocus '设置输入焦点Private Sub CheckInput()
  For i 未定义 代码是从别地方拷过来的