ช่วยดูให้หน่อยนะ ในcodeนี้errorตรงmatt(i)อ่าพี่หรือเป็นเพราะประกาศDimของmattผิดค่ะ

Dim matt() as integer

Dim sqlSc As String = "SELECT * FROM School"
                         Dim objRecSc = Server.CreateObject("ADODB.Recordset")
                         objRecSc.Open(sqlSc, conn, 1, 3)
                         While Not objRecSc.EOF							
                             i = (i + 1)
							 ReDim matt(i)
                             matt(i) = objRecSc.Fields("Username").Value
                             
                             Response.Write("<input type='hidden' size='50' maxlength='10' name='User" & i & "'  value='" & matt(i) & "' />")
                             objRecSc.MoveNext()
                         End While