INSERT INTO E UPDATE COM IF

Select Case TXT
Case 1
cSQL = [Ô] campo = 1[Ô]
case 2
cSQL = [Ô] campo = 2[Ô]
case 3
cSQL = [Ô] campo = 3[Ô]
End Select

sSQL = [Ô]UPDATE tabela SET[Ô] & cSQL & [Ô] where id = x[Ô]

Option Explicit
Dim vDefinicoes As String

Private Sub CmdSalvar_Click()
Dim Ctrl As Control

vDefinicoes = vbNullString
For Each Ctrl In Form1
    If TypeOf Ctrl Is CheckBox Then vDefinicoes = vDefinicoes & Ctrl.Value
Next [ô]Ctrl
SaveSetting AppName:=[Ô]NomeDoPrograma[Ô], Section:=[Ô]Memory[Ô], Key:=[Ô]Definicoes[Ô], setting:=vDefinicoes
End Sub

Private Sub Form_Load()
Dim Ctrl As Control
Dim vCont As Integer

vDefinicoes = GetSetting(AppName:=[Ô]NomeDoPrograma[Ô], Section:=[Ô]Memory[Ô], Key:=[Ô]Definicoes[Ô], Default:=[Ô]0000000000[Ô]) [ô]dez zeros no caso de dez checkbox[ô]s
vCont = 1
For Each Ctrl In Form1
    If TypeOf Ctrl Is CheckBox Then
        Ctrl.Value = CInt(Mid$(vDefinicoes, vCont, 1))
        vCont = vCont + 1
    End If
Next [ô]Ctrl
End Sub