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

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.