Function DoUpdate (Id As Integer) As Integer
Dim Ret%
Dim sData$
Dim s$
s = XasSetChar(Txt(4).Text, "'", "''", 0, 0)
TabSQLValue(0, 0) = Trim$(s)
TabSQLValue(0, 1) = Trim$(Txt(5).Text)
s = XasSetChar(Txt(7).Text, "'", "''", 0, 0)
TabSQLValue(0, 2) = Trim$(s)
s = XasSetChar(Txt(8).Text, "'", "''", 0, 0)
TabSQLValue(0, 3) = Trim$(s)
s = XasSetChar(Txt(9).Text, "'", "''", 0, 0)
TabSQLValue(0, 4) = Trim$(s)
s = XasSetChar(Txt(10).Text, "'", "''", 0, 0)
TabSQLValue(0, 5) = Trim$(s)
s = XasSetChar(Txt(11).Text, "'", "''", 0, 0)
TabSQLValue(0, 6) = Trim$(s)
s = XasSetChar(Txt(12).Text, "'", "''", 0, 0)
TabSQLValue(0, 7) = Trim$(s)
s = XasSetChar(Txt(13).Text, "'", "''", 0, 0)
TabSQLValue(0, 8) = Trim$(s)
TabSQLValue(0, 9) = Trim$(Txt(14).Text)
TabSQLValue(0, 10) = Trim$(Txt(15).Text)
TabSQLValue(0, 11) = Trim$(Txt(16).Text)
TabSQLValue(0, 12) = Trim$(Right$(Cb(0).Text, 6))
TabSQLValue(0, 13) = Trim$(Right$(Cb(1).Text, 6))
TabSQLValue(0, 14) = Trim$(Right$(Cb(2).Text, 6))
TabSQLValue(0, 15) = Trim$(Right$(Cb(3).Text, 6))
TabSQLValue(0, 16) = Trim$(Right$(Cb(4).Text, 6))
TabSQLValue(0, 17) = Trim$(Right$(Cb(5).Text, 6))
TabSQLValue(0, 18) = Trim$(Right$(Cb(6).Text, 6))
TabSQLValue(0, 19) = Trim$(Txt(17).Text)
Ret = UpdateEnseigne(CurEnseigne_id)
If Ret = True Then
    LabMsg(0).Caption = "Enseigne mise à Jour" 'DomPerso(3)
    BtnOk.Visible = True
    Ret = DoSqlCompte(CurEnseigne_id)
    PicBtn(3).Visible = True
    PicBtn(5).Visible = True
    PicBtn(7).Visible = True
    Maj = 1
    Ret = GereOnglet(0)
Else
   LabMsg(0).ForeColor = 255
   LabMsg(0).Caption = "Problème d'enregistrement base de données. Consulter votre administrateur" 'DomPerso(2)
End If


End Function