2 dimensional array

I'm trying to use a 2 dimensional array but it's not working.
Here's the error I get:
Microsoft VBScript runtime error (160, 11) : Subscript out of range: 'UBound'

i=0
Dim initArry()
Do While Not rs1.Eof  ' Loop for each subscribed id
 
........ASP Code.....................
 
  			   initArry(i,0) = nUsrId 
 			   initArry(i,1) = nPId    
 			   initArry(i,2) = sMailBody     
 			   
 			   ReDim Preserve initArry(i+1,2) 
........ASP Code.....................
              
 
         'ubound(array,1) returns the number of fields (columns) in the array
	'UBound(array,2) returns the number of records (rows) in the array
          maxCol = UBound(initArry,1) <----Line 160
          maxRow = UBound(initArry,2)
          
         For y=0 To maxRow      
         	WScript.Echo "user id: " & initArry(y,0) & vbCrLf
         	WScript.Echo "phasing id: " & initArry(y,1) & vbCrLf
         	WScript.Echo "Email Body: " & initArry(y,2) & vbCrLf        
         next
 
               i=i+1              
               rs1.MoveNext
            Loop

Select allOpen in new window