Public MyReader As Mysql.Data.MySqlClient.MySqlDataReader
Me.Connect()
Mysql = "SELECT p.id_person,p.name,p.birthdate,p.address,p.phonenumber,p.email,s.mean_position,d.mean_depart FROM person_table p,positionper_table s,depart_table d WHERE (p.id_person='" & search_id & "') AND (p.id_position=s.id_position) AND (p.id_depart=d.id_depart)"
Dim cmd_per As New MySql.Data.MySqlClient.MySqlCommand(Mysql, myConnection)
MyReader = cmd_per.ExecuteReader
MyReader.Read()