Referência de objeto não definida para uma instância de um objeto

[twpesquisa 1]

Amigos,

alguém tem ideia do motivo do erro abaixo ?

Referência de objeto não definida para uma instância de um objeto.

Após o erro, a mensagem aponta para essa linha do codigo:

Dim codigo As String = CType(control.FindControl("txtCodigo"), TextBox).Text



Abaixo segue o código completo:

 

 

 

    Protected Sub Add(ByVal sender As Object, ByVal e As EventArgs)

        Dim control As Control = Nothing
        If (Not (ItensAvulso.FooterRow) Is Nothing) Then
            control = ItensAvulso.FooterRow
        Else
            control = ItensAvulso.Controls(0).Controls(0)
        End If


        Dim codigo As String = CType(control.FindControl("txtCodigo"), TextBox).Text
        Dim descricao As String = CType(control.FindControl("txtDescricao"), TextBox).Text
        Dim quantidade As String = CType(control.FindControl("txtQuantidade"), TextBox).Text


        'declara e instancia a classe


        Dim semPedido As New Aviso_sem_pedido
        Dim sessao As String = Session.SessionID


        'seta propriedade
        semPedido.StringConexao = ConfigurationManager.ConnectionStrings("conexao").ConnectionString
        semPedido.id_ar_sem_pedido = 0
        semPedido.codigo = codigo.ToString
        semPedido.descricao = descricao.ToString
        semPedido.quant = quantidade.ToString
        semPedido.id_usuario = Session("id_usuario")
        semPedido.id_session = sessao.ToString


        'chama metodo
        Dim id_sem_pedido As Int32 = semPedido.Insert(semPedido)
        Response.Redirect(Request.Url.AbsoluteUri)


    End Sub

 

 

 

o primeiro registro inserido, OK...

 

 

Porém quando vou inserir o segundo, ocorre a mensagem acima.

[KhaosDoctor 242]

Dim control as New Control()