急求！请老师们帮我分析一下这条语句

X = js.Text
  '一下这段是严重库存是否够
  For j = 1 To X
  Set rs1 = New ADODB.Recordset
  Set cmd = New ADODB.Command
  cmd.ActiveConnection = strCnn
  cmd.CommandText = "select_kc_kcsl"
  cmd.CommandType = adCmdStoredProc
  Set param = cmd.CreateParameter("RetVal", adInteger, adParamReturnValue, 4)
  cmd.Parameters.Append param
  Set param = cmd.CreateParameter("ypID", adVarChar, adParamInput, 20, Trim(mf1.TextMatrix(j, 1)))
  cmd.Parameters.Append param
  Set param = cmd.CreateParameter("rkdj", adVarChar, adParamInput, 20, Trim(mf1.TextMatrix(j, 8)))
  cmd.Parameters.Append param
  Set param = cmd.CreateParameter("sl", adVarChar, adParamInput, 20, Trim(mf1.TextMatrix(j, 5)))
  cmd.Parameters.Append param
  Set rs1 = cmd.Execute()
  Set rs1 = Nothing
  If cmd.Parameters("RetVal").Value = 0 Then
  MsgBox ("mf1.TextMatrix(j, 2)库存数量不足,请重新输入数量!!!") ’这里这样写不指定对不对
  Next j

'现在问题是怎样让上面的For语句循环执行完毕而且“cmd.Parameters("RetVal").Value ”的返回值都是1，才可以接着执行下面的语句，否则只有有一个返回值是0都停止，不再执行下面的语句。
  本人才学VB不久，请各位老师帮帮忙，谢谢！

If cmd.Parameters("RetVal").Value = 0 Then
  MsgBox ("mf1.TextMatrix(j, 2)库存数量不足,请重新输入数量!!!") ’这里这样写不指定对不对
  exit sub
end if

这样就可以跳出正在执行的函数了