Update DB

[musicale]

Hola,
quisiera hacer un update, pero no se si estoy haciendo lo correcto.

Código:

Option Explicit

Enum EACCION
    AGREGAR_REGISTRO = 1
    EDITAR_REGISTRO = 0
End Enum

Public IdRegistro
Public ACCION As EACCION

Private Sub Command1_Click()
On Error GoTo ErrorSub
   
    
    ' Valida el Nombre que no este vacio
    ''''''''''''''''''''''''''''''''
    If Trim(cmbnombre) = "" Then
        MsgBox "El Nombre de registro no puede estar vacio", vbCritical, "Datos incompletos"
        cmbnombre.SetFocus
        Exit Sub
    End If
    
    'Agrega el registro
    '''''''''''''''''''''''''''''''
    
    Select Case ACCION
        Case EDITAR_REGISTRO
            cnn.Execute "UPDATE Personas set Nombre = '" & cmbnombre & _
                                         "', Tratamientos = '" & cmbtrat & _
                                         "', Precios = '" & lblttotal & _
                                         "' where Id = " & IdRegistro & ""
        

        
        
        Case AGREGAR_REGISTRO
            cnn.Execute "INSERT INTO Personas " & "(Nombre,Tratamientos,Precios,Fecha) VALUES('" & _
                                 cmbnombre & "','" & _
                                 cmbtrat & "','" & _
                                 lblttotal & "','" & _
                                 Format(Date, "dd/mm/yyyy") & "')"

    End Select
    
    rs.Requery 1

    DoEvents
    Unload Me
    Set frmnv = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description
End Sub

me da: error de sintaxis (falta operador) en la esprecion de consulta 'Id'

gracias