Problema al guardar recordset en base de datos

[gorka_arai]

Hola maestros,
estoy intentando introducir un nuevo registro en una base de datos a través del objeto recordset. Como no podía conseguirlo, escribí este código en el que siempre inserto los mismos valores, pero aun así no se guardan en la base de datos!! ¿Qué hago mal?

Código:

<%
'1. Conexión con la Base de datos
dim Conexion, Productos, Ofertas
set Conexion=server.CreateObject("ADODB.Connection")
set Productos=server.CreateObject("ADODB.Recordset")	
set Ofertas=server.CreateObject("ADODB.Recordset")
Conexion.ConnectionString="Driver={MySQL ODBC 5.1 Driver};Port=3308;Server=localhost;Database=xxx;User=xxx;Password=xxx;"	

Conexion.Open
Productos.Open "select * from Productos",Conexion
'Recorro toda la tabla de productos
While Not Productos.EOF            	        
		Ofertas.Open "Select * from Ofertas_anuales_proveedores",Conexion,3,3			  	 			
		Ofertas.AddNew		
		Ofertas("Cod_prov")= 1		
		Ofertas("Cod_prod")= "GEG0666"														
		Ofertas.Update						  								
		Ofertas.Close
		Productos.Movenext				
Wend
	
Productos.Close
Conexion.Close
Set Productos=Nothing
Set Conexion=Nothing
Set Ofertas=Nothing
%>