add to multidimensional array

I need to add one array to another (or add them both to a new one, but MSDN says redim is not needed but I get an error when I try to add to the next available index.
I tried dim and redim - still error - subscript out of range on arrResultsx(x,ctrx).  I also tried without the internal x loop.

SQL = "SELECT * FROM T1News where ..."
      SQL_Rs.open SQL,SQL_Cn,3
       	IF NOT(SQL_Rs.EOF) THEN
			arrResultsx = SQL_Rs.getrows
		    ctrx = ubound(arrResultsx,2)
		END IF
      	SQL_Rs.close
ctrx2=0
      SQL = "SELECT * FROM T1News where ..."
      SQL_Rs.open SQL,SQL_Cn,3
       	IF NOT(SQL_Rs.EOF) THEN
			arrResultsx2 = SQL_Rs.getrows
		    ctrx2 = ubound(arrResultsx2,2)
		END IF
      	SQL_Rs.close
      	
    ctrx = ctrx + 1
'    ctr = ctrx+ctrx2
'    ReDim arrResultsx(ctr)
'    %><%=arrResultsx(x,ctr)%><Br><%
    if ctrx2 > 0 then      ' if anything in 2nd array, then proceed
      for i = 0 to ctrx2
        for x = 0 to 30
'          redim preserve arrResultsx(x,ctrx)
          arrResultsx(x,ctrx) = arrResultsx2(x,i) ' also tried arrResultsx(ctrx)=arrResultsx2(i)
          ctrx = ctrx + 1
        next
      next
    end if

Select all Open in new window