Funcion que actualiza un registro en BD (Visual Basic)

[mvero]

Hola a todos

Tengo el siguiente codigo

Código:

    Dim strSQL As String
    Dim str1 As String
    Dim idExperimento As Integer
    On Error GoTo cambioEnCursoError
    
    Set cmd = New ADODB.Command
    
    Set cmd.ActiveConnection = conexion
    Set rs = New ADODB.Recordset
  
    
    strSQL = "UPDATE Experimento SET En_Curso =" & encurso & " WHERE ID_experimento=" & id

            
    cmd.CommandText = strSQL
    cmd.Execute
      
    cambioEnCursoExperimento = True
    
    
    Exit Function
    '...........................................
cambioEnCursoError:
    cambioEnCursoExperimento = False
        
        MsgBox "ERROR: " & Err.Description & Err.Number       ' MsgBox "Dio un error al ingresar el experimento"
        Exit Function

encurso es un entero que cuyos valores pueden ser 1 o 0, entonces cuando en la base de datos el experimento que tiene el id que le especifico cambia a 1 o a 0 segun lo que necesite, ahora esa funcion no me esta haciendo el cambio, si hago directamente la consulta en la base de datos Access me lo hace bien (UPDATE Experimento SET En_Curso=1 WHERE ID_experimento=10 por ejemplo), que puedo estar haciendo mal en ese codigo?


Saludos