Visual Basic.NET - Ayuda con update en bd mysql

Hola.. me podrían ayudar un poco con este codigo..
Estoy conectando a una bd mysql y no puedo actualizar los datos de un campo.. que estoy haciendo mal..??

Aquí hay parte del codigo…

Dim con As New MySql.Data.MySqlClient.MySqlConnection
Dim rs As IDataReader
Dim com As MySql.Data.MySqlClient.MySqlCommand
Dim com2 As MySql.Data.MySqlClient.MySqlCommand

con.ConnectionString = "server=" & TextBox1.Text & ";user id=" & TextBox2.Text & ";password=" & TextBox3.Text & ";database=" & TextBox5.Text & ";port=3306"

com = New MySql.Data.MySqlClient.MySqlCommand("select Rut_e From empleados where Rut_e='" & Rut_e & "'", con)
rs = com.ExecuteReader
If rs.Read() = True Then 'si existe se modifica
actualizado = actualizado + 1
Try
com2 = New MySql.Data.MySqlClient.MySqlCommand("update empleados set Nombre_e='" & Nombre_e & "',Cargo_e='" & Cargo_e & "' where Rut_e='" & Rut_e & "'", con)

com2.Parameters.Add("Nombre_e", Nombre_e)
com2.Parameters.Add("Cargo_e", Cargo_e)
com2.Parameters.Add("Rut_e", Rut_e)
com2.Prepare()
com2.ExecuteNonQuery()

Catch er1 As Exception
ListBox1.Items.Add("Error en la Linea :" & fila & " !! " & er1.Message.ToString)
errores = errores + 1
End Try
End IF
con.Close()

MsgBox("La operacion ha finalizado ", MsgBoxStyle.Information, "Exportacion")