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

Question

 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不久，请各位老师帮帮忙，谢谢！

Answer 1

  If cmd.Parameters("RetVal").Value = 0 Then
  MsgBox ("mf1.TextMatrix(j, 2)库存数量不足,请重新输入数量!!!") ’这里这样写不指定对不对
  exit sub
end if这样就可以跳出正在执行的函数了

Answer 2

谢谢，确实可以中断执行下面的语句。
但我想让MsgBox ("mf1.TextMatrix(j, 2)库存数量不足,请重新输入数量!!!")中的mf1.TextMatrix(j, 2)现实里面的内容，该怎么办？

Answer 3

MsgBox mf1.TextMatrix(j, 2) & "库存数量不足,请重新输入数量!!!"