RETORNO PagSeguro VB.NET

Gente, minha pagina de retorno do PagSeguro estava funcionando perfeitamente e de repente parou de salvar os dados no banco..

Já virei o código de cabeça pra baixo e não consigo encontrar uma solução.

Alguém pode me ajudar?

Segue a baixo o código:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Request.HttpMethod = "POST" Then

'o método POST indica que a requisição é o retorno da validação NPI.

Dim Token As String = "**********************"
Dim Pagina As String = "https://pagseguro.uol.com.br/pagseguro-ws/checkout/NPI.jhtml"
Dim Dados As String = HttpContext.Current.Request.Form.ToString + "&Comando=validar" + "&Token=" + Token

Dim req As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(Pagina), System.Net.HttpWebRequest)

req.Method = "POST"
req.ContentLength = Dados.Length
req.ContentType = "application/x-www-form-urlencoded"

Dim stOut As New System.IO.StreamWriter(req.GetRequestStream(), System.Text.Encoding.GetEncoding("ISO-8859-1"))
stOut.Write(Dados)
stOut.Close()

Dim stIn As New System.IO.StreamReader(req.GetResponse().GetResponseStream(), System.Text.Encoding.GetEncoding("ISO-8859-1"))
Dim Result As String = stIn.ReadToEnd()
stIn.Close()

If Result = "VERIFICADO" Then

Dim iduser As String = Request.Form("Referencia")
Dim VendedorEmail As String = Request.Form("VendedorEmail")
Dim TransacaoID As String = Request.Form("TransacaoID")
Dim Extras As Decimal = Request.Form("Extras")
'Dim Frete As String = Request.Form("Frete")
Dim ValorFrete As Decimal = Request.Form("ValorFrete")
Dim Anotacao As String = Request.Form("Anotacao")
Dim DataTransacao As Date = Request.Form("DataTransacao")
Dim TipoPagamento As String = Request.Form("TipoPagamento")
Dim StatusTransacao As String = Request.Form("StatusTransacao")
Dim CliNome As String = Request.Form("CliNome")
Dim CliEmail As String = Request.Form("CliEmail")
Dim CliEndereco As String = Request.Form("CliEndereco")
Dim CliNumero As String = Request.Form("CliNumero")
Dim CliComplemento As String = Request.Form("CliComplemento")
Dim CliBairro As String = Request.Form("CliBairro")
Dim CliCidade As String = Request.Form("CliCidade")
Dim CliEstado As String = Request.Form("CliEstado")
Dim CliCEP As String = Request.Form("CliCEP")
Dim CliTelefone As String = Request.Form("CliTelefone")
Dim ProdID_x As String = Request.Form("ProdID_1")
Dim ProdDescricao_x As String = Request.Form("ProdDescricao_1")
Dim ProdValor_x As Decimal = Request.Form("ProdValor_1")
Dim ProdQuantidade_x As Integer = Request.Form("ProdQuantidade_1")
Dim ProdFrete_x As Decimal = Request.Form("ProdFrete_1")
Dim NumItens As Integer = Request.Form("NumItens")
Dim Parcelas As Integer = Request.Form("Parcelas")

'Request.Form("ProdID_1")

'O post foi validado pelo PagSeguro.
'Seleciona a compra efetuada na tabela order do sistema

'Se for VERIFICADO e Status do PagSeguro for COMPLETO
'If Request.Form("StatusTransacao") = "Aprovado" Then

' End If

Dim conexaoMySQL As MySqlConnection
Dim myAdapter As New MySqlDataAdapter
Dim strSQL3 As String
' Dim SQLback As String
'Conexao banco de dados
conexaoMySQL = New MySqlConnection("server=**********; user id=****; password=***; database=****")

Try
conexaoMySQL.Open()
Catch myerror As MySqlException
MsgBox("Erro de conexao com o BD")
End Try

 strSQL3 = "insert into faturamento (iduser, VendedorEmail, TransacaoID, Anotacao, DataTransacao, TipoPagamento, StatusTransacao, CliNome, CliEmail, CliEndereco, CliNumero, CliComplemento, CliBairro, CliCidade, CliEstado, CliCEP, CliTelefone, ProdID_x, ProdDescricao_x, ProdValor_x, ProdQuantidade_x, ProdFrete_x, NumItens, Parcelas) values ('" & iduser & "','" & VendedorEmail & "','" & TransacaoID & "','" & Anotacao & "','" & DataTransacao & "','" & TipoPagamento & "','" & StatusTransacao & "','" & CliNome & "','" & CliEmail & "','" & CliEndereco & "','" & CliNumero & "','" & CliComplemento & "','" & CliBairro & "','" & CliCidade & "','" & CliEstado & "','" & CliCEP & "','" & CliTelefone & "', '" & ProdID_x & "','" & ProdDescricao_x & "', " & ProdValor_x & "," & ProdQuantidade_x & ", " & ProdFrete_x & "," & NumItens & "," & Parcelas & ")"
 ' strSQL3 = "insert into faturamento (iduser, VendedorEmail, TransacaoID, Extras, ValorFrete, Anotacao, DataTransacao, TipoPagamento, StatusTransacao, CliNome, CliEmail, CliEndereco, CliNumero, CliComplemento, CliBairro, CliCidade, CliEstado, CliCEP, CliTelefone, ProdID_x, ProdDescricao_x, ProdValor_x, ProdQuantidade_x, ProdFrete_x, NumItens, Parcelas) values ('" & iduser & "','" & VendedorEmail & "','" & TransacaoID & "'," & Extras & "," & ValorFrete & ",'" & Anotacao & "',#" & DataTransacao & "#,'" & TipoPagamento & "','" & StatusTransacao & "','" & CliNome & "','" & CliEmail & "','" & CliEndereco & "','" & CliNumero & "','" & CliComplemento & "','" & CliBairro & "','" & CliCidade & "','" & CliEstado & "','" & CliCEP & "','" & CliTelefone & "', '" & ProdID_x & "','" & ProdDescricao_x & "', " & ProdValor_x & "," & ProdQuantidade_x & ", " & ProdFrete_x & "," & NumItens & "," & Parcelas & ")"
 ' strSQL3 = "insert into Log(Log) values ( '" & Request.Form("TransacaoID") & "')"
 'Session("sql") = strSQL3
 Dim myCommand3 As New MySqlCommand()
 myCommand3.Connection = conexaoMySQL
 myCommand3.CommandText = strSQL3

 'Iniciar Query
 myAdapter.SelectCommand = myCommand3
 Dim myData3 As MySqlDataReader

 myData3 = myCommand3.ExecuteReader()

 'While myData3.Read()

 ' ImageButton1.ImageUrl = myData3.Item(0)

 'End While
 myData3.Close()

 'Dim strSQL4 As String
 'strSQL4 = "insert into Log(Log) values ( ' 4 ')"

 'Dim myCommand4 As New MySqlCommand()
 'myCommand4.Connection = conexaoMySQL
 'myCommand4.CommandText = strSQL4

 ' ''Iniciar Query
 'myAdapter.SelectCommand = myCommand4
 'Dim myData4 As MySqlDataReader

 'myData4 = myCommand4.ExecuteReader()

 ''While myData4.Read()

 '' ImageButton2.ImageUrl = myData4.Item(0)

 ''End While
 'myData4.Close()

 ElseIf Result = "FALSO" Then
 'o post nao foi validado

 Else
 'erro na integração com PagSeguro.
 End If

 ElseIf Request.HttpMethod = "GET" Then

 'o método GET indica que a requisição é o retorno do Checkout PagSeguro para o site vendedor.
 'no término do checkout o usuário é redirecionado para este bloco.

 ' POST não recebido, indica que a requisição é o retorno do Checkout PagSeguro.
 ' No término do checkout o usuário é redirecionado para este bloco.
 'Response.Write("Apenas o Checkout do PagSeguro")

 'Grava o Log da operacao

 ' Redireciona para o site apos compra
 'Response.Redirect("http://ecolawyer.hospedagemdesites.ws/********")

 ' Dim iduser2 As String =
 'Label1.Text = Session("sql")

 End If

 End Sub

End Class