Datagrid based on arraylist not editable

[DaveR]

I have a webform with a two-column datagrid based on an Arraylist. The
Arraylist draws the data for the two columns from two different tables
in an SQL database. The data is displayed in datagrid as expected but
when user clicks the Edit link, the cells do NOT turn into editable
text boxes. I actually need only the first column to be editable but
any ideas on getting the whole row editable would help at first.
Apologies for the amount of code that follows:
<asp:datagrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 55px;
POSITION: absolute; TOP: 59px" runat="server" Font-Size="Smaller"
Font-Names="Arial" Height="120px" Width="400px" ShowHeader="Tru e">
<Columns>
<asp:EditComman dColumn ButtonType="Lin kButton"
UpdateText="Upd ate" CancelText="Can cel"
EditText="Edit" ></asp:EditCommand Column>
</Columns>
</asp:datagrid>

CODE BEHIND:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here

Me.SqlConnectio n1.ConnectionSt ring = Global.Connecti onString
Me.SqlConnectio n2.ConnectionSt ring = Global.Connecti onString

If Me.IsPostBack = False Then
Call FillDatagrid()
End If

End Sub

Function FillDatagrid()
Dim arrReportHeadin g As New ArrayList()
Dim strSQl As String
Dim strSQl2 As String
Dim cmdSubjectList As SqlClient.SqlCo mmand
Dim cmdTblNameList As SqlClient.SqlCo mmand

Dim dr As SqlClient.SqlDa taReader
Dim dr2 As SqlClient.SqlDa taReader

strSQl = "SELECT ReportDesignHea dings.* FROM
ReportDesignHea dings WHERE (((ReportID)=@R eportID) AND
((SchID)=@schID ))"
cmdSubjectList = New SqlClient.SqlCo mmand(strSQl,
SqlConnection1)
cmdSubjectList. Parameters.Add( "@ReportID" ,
SqlDbType.Int). Value = Session("Report ID")
cmdSubjectList. Parameters.Add( "@schID", SqlDbType.Int). Value =
Session("id")
Me.SqlConnectio n1.Open()
dr = cmdSubjectList. ExecuteReader()
dr.Read()

strSQl2 = "SELECT SubjectOrder.* FROM SubjectOrder WHERE
(((ReportID)=@R eportID) AND ((SchID)=@schID ))"
cmdTblNameList = New SqlClient.SqlCo mmand(strSQl2,
SqlConnection2)
cmdTblNameList. Parameters.Add( "@ReportID" ,
SqlDbType.Int). Value = Session("Report ID")
cmdTblNameList. Parameters.Add( "@schID", SqlDbType.Int). Value =
Session("id")
Me.SqlConnectio n2.Open()
dr2 = cmdTblNameList. ExecuteReader()
dr2.Read()
arrReportHeadin g.Add(New ChangeHeadings( (dr2.Item("Sub1 ")),
(dr.Item("sub1" ))))
arrReportHeadin g.Add(New ChangeHeadings( (dr2.Item("Sub2 ")),
(dr.Item("sub2" ))))
arrReportHeadin g.Add(New ChangeHeadings( (dr2.Item("Sub3 ")),
(dr.Item("sub3" ))))
arrReportHeadin g.Add(New ChangeHeadings( (dr2.Item("Sub4 ")),
(dr.Item("sub4" ))))
arrReportHeadin g.Add(New ChangeHeadings( (dr2.Item("Sub5 ")),
(dr.Item("sub5" ))))

' etc, etc, etc. to "Sub26" and "sub26"

DataGrid1.DataS ource = arrReportHeadin g
DataGrid1.DataB ind()

dr.Close()
dr2.Close()
cmdSubjectList. Dispose()
cmdTblNameList. Dispose()
Me.SqlConnectio n1.Close()
Me.SqlConnectio n2.Close()
End Function

Public Class ChangeHeadings
Private _FldName As String
Private _FldLabel As String
Public Sub New(ByVal FldName As String, ByVal FldLabel As
String)
_FldName = FldName
_FldLabel = FldLabel
End Sub
Public ReadOnly Property FldName() As String
Get
Return _FldName
End Get
End Property
Public ReadOnly Property FldLabel() As String
Get
Return _FldLabel
End Get
End Property
End Class

Private Sub DataGrid1_EditC ommand(ByVal source As Object, ByVal e
As System.Web.UI.W ebControls.Data GridCommandEven tArgs) Handles
DataGrid1.EditC ommand
Me.DataGrid1.Ed itItemIndex = e.Item.ItemInde x
Call FillDatagrid()
Me.DataGrid1.Wi dth = Unit.Pixel(550)
End Sub