Editing text doesn't work no more

With Me.ReportControl1
      With .Columns.Add(col_Actions, "Actions", 50, False)
         .Editable = False
      End With

      With .Columns.Add(col_HostName, "Host Name/IP Address", 150, True)
         .Alignment = xtpAlignmentVCenter + xtpAlignmentLeft
         .Editable = True
         With .EditOptions
            .MaxLength = 255
            .SelectTextOnEdit = True
            .EditControlStyle = xtpEditStyleLowerCase
         End With
      End With

      With .Columns.Add(col_HostPort, "Port", 75, False)
         .Alignment = xtpAlignmentRight + xtpAlignmentVCenter
         .Editable = True
         With .EditOptions
            .MaxLength = 5
            .SelectTextOnEdit = True
            .EditControlStyle = xtpEditStyleNumber
         End With
      End With

      With .Columns.Add(col_LastConnected, "Last Connected", 200, False)
         .Alignment = xtpAlignmentLeft + xtpAlignmentVCenter
         .Editable = False
      End With

      .AllowEdit = True
      .HeaderRowsAllowEdit = True
      .EditOnClick = True
      .ShowHeader = True
      .ShowHeaderRows = True
End With