高手帮忙看看,小弟急啊.过两年就要的东西!

我从数据库里得到一个数据集:rst,然后把rst(0)里面的数据做为参数,插入到另外一个表,其中text是控件数组.我是用循环插入的,以下代码出错.提示参数过多.但是第一条数据又可能插入.为何 
 '执行插入操作
    Set cmd = New ADODB.Command
   cmd.ActiveConnection = mConn
   cmd.CommandText = "insert_P_score"
   cmd.CommandType = adCmdStoredProc
       '输入参数
    rst.MoveFirst
    For lblx = 1 To rst.RecordCount
        Set param = cmd.CreateParameter("scor_1", adChar, adParamInput, 100, Trim(Text1(lblx).Text))
         cmd.Parameters.Append param
        '输出参数
        Set param = cmd.CreateParameter("rid_2", adInteger, adParamInput, 4, rst(0))
         cmd.Parameters.Append param
        '插入
       cmd.Execute
       rst.MoveNext
      Next lblx