[melad2002]

Public Sub Update_Empotab()
        Dim saveSQL As String

        saveSQL = "Update Empotab Set codID = @codID,numID = @numID,NAME = @NAME,ID_number = @ID_number,status = @status,Type = @Type,phone = @phone,education = @education,takhasus = @takhasus,almsrf1 = @almsrf1,dateof = @dateof,rgmalhsab = @rgmalhsab,aldrgh1 = @aldrgh1,alalaow = @alalaow,salary = @salary,aldman = @aldman,altdamn = @altdamn,alghad = @alghad,altkafl = @altkafl,alksmeat = @alksmeat,safesalray = @safesalray Where ID = @ID"
        cmd = New OleDb.OleDbCommand(saveSQL, con)
        cmd.Parameters.AddWithValue("@codID", Txt1.Text)
        cmd.Parameters.AddWithValue("@numID", Txt2.Text)
        cmd.Parameters.AddWithValue("@NAME", Txt3.Text)
        cmd.Parameters.AddWithValue("@ID_number", Txt4.Text)
        cmd.Parameters.AddWithValue("@status", Combo1.Text)
        cmd.Parameters.AddWithValue("@Type", Combo2.Text)
        cmd.Parameters.AddWithValue("@phone", Txt5.Text)
        cmd.Parameters.AddWithValue("@education", Combo3.Text)
        cmd.Parameters.AddWithValue("@takhasus", Txt6.Text)
        cmd.Parameters.AddWithValue("@dateof", DTime1.Value)

        cmd.Parameters.AddWithValue("@almsrf1", Combank.Text)
        cmd.Parameters.AddWithValue("@rgmalhsab", Txtrgmh.Text)
        cmd.Parameters.AddWithValue("@aldrgh1", Cbodrgh.Text)
        cmd.Parameters.AddWithValue("@alalaow", Cboalow.Text)
        cmd.Parameters.AddWithValue("@salary", Txtsalry.Text)

        cmd.Parameters.AddWithValue("@aldman", Txtdman.Text)
        cmd.Parameters.AddWithValue("@altdamn", Txttdamn.Text)
        cmd.Parameters.AddWithValue("@alghad", Txtgehd.Text)
        cmd.Parameters.AddWithValue("@altkafl", Txttkfl.Text)
        cmd.Parameters.AddWithValue("@alksmeat", Txtgksm.Text)
        cmd.Parameters.AddWithValue("@safesalray", Txtsafe.Text)
        cmd.Parameters.AddWithValue("@ID", Txt1.Text)
        con.Open()
        Load_Data()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Record Updated successfullY", vbInformation)

       
    End Sub