System.NullReferenceException was unhandled

[Alisson.NET 0]

Não sei se alguem ja teve esse problema NullReferenceException, não descobri ainda como resolve-lo. Se alguem

puder me ajudar. Segue o código e o erro:

 

Imports MySql.Data.MySqlClient
Public Class frmAlterar_Senha

    Private Sub cmdAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAlterar.Click

        Dim Leia As MySqlDataReader
        Dim oConn As New MySqlConnection("server=localhost;user id=root;password=aluno;database=empresa;")
        Dim oComm As New MySqlCommand("SELECT * FROM LOGIN WHERE SENHA = @SENHA AND USUARIO = @USUARIO;")

        oComm.Parameters.Add("@USUARIO", MySqlDbType.VarChar).Value = txtUsuario.Text
        oComm.Parameters.Add("@SENHA", MySqlDbType.VarChar).Value = txtSenhaatual.Text
        oComm.Parameters.Add("@NOVASENHA", MySqlDbType.VarChar).Value = txtNovasenha.Text

        oComm.Connection = oConn
        oConn.Open()
        Leia = oComm.ExecuteReader()

        If (Leia.Read()) Then
            If txtNovasenha.Text = txtConfirmarsenha.Text Then
                If txtNovasenha.Text = "" Or txtConfirmarsenha.Text = "" Then
                    MsgBox("Nova senha inválida.", MsgBoxStyle.Critical)
                Else
                    Dim Conn As New MySqlConnection("server=localhost;user id=root;password=aluno;database=empresa;")
                    Dim Comm As New MySqlCommand("UPDATE LOGIN SET SENHA=@NOVASENHA WHERE USUARIO=@USUARIO;")

                    Comm.Parameters.Add("@USUARIO", MySqlDbType.VarChar).Value = txtUsuario.Text
                    Comm.Parameters.Add("@NOVASENHA", MySqlDbType.VarChar).Value = txtNovasenha.Text

                    Comm.Connection = Conn
                    Conn.Open()
                    Comm.ExecuteNonQuery()
                    Conn.Close()

                    MsgBox("Senha alterada com sucesso!", MsgBoxStyle.Information)
                    Me.Close()
                End If
            Else
                MsgBox("O campo nova senha não corresponde ao de confirmação.", MsgBoxStyle.Critical)
            End If
        Else
            MsgBox("Usuário não existe ou senha atual inválida.", MsgBoxStyle.Critical)
        End If
        On Error Resume Next
    End Sub

    Private Sub cmdFechar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFechar.Click
        Me.Close()
    End Sub
End Class

 

System.NullReferenceException was unhandled
  Message="Referência de objeto não definida para uma instância de um objeto."
  Source="MySql.Data"
  StackTrace:
       em MySql.Data.MySqlClient.NativeDriver.FetchDataRow(Int32 statementId, Int32 columns)
       em MySql.Data.MySqlClient.Driver.FetchDataRow(Int32 statementId, Int32 columns)
       em MySql.Data.MySqlClient.Driver.SkipDataRow()
       em MySql.Data.MySqlClient.ResultSet.Close()
       em MySql.Data.MySqlClient.MySqlDataReader.NextResult()
       em MySql.Data.MySqlClient.MySqlDataReader.Close()
       em MySql.Data.MySqlClient.MySqlConnection.Close()
       em MySql.Data.MySqlClient.MySqlConnection.Dispose(Boolean disposing)
       em System.ComponentModel.Component.Finalize()
  InnerException:

Desde já agradeço...

[quintelab 91]

Alisson.NET, seja bem vindo ao Fórum iMasters, conheça nossas regras: Regras do Fórum

 

Algum objeto seu esta nulo, e você esta tentando ler este objeto nulo.

Em qual linha isso ocorre?

 

Abraços...