Y ya que estamos, no hace falta que hagas 3 UPDATES para modificar 3 campos de la misma tabla, con uno sólo es suficiente:
Código:
sql="UPDATE Torneos SET dia='" & dia1 & "', fecha=#" & fecha1 & "#, descripcion='" & descripcion1 & "' WHERE fecha= #" & fecha1 & "#"
set rs=conn.Execute(sql)