Hola
Una pregunta, ¿para qué abres un recorset?
A la respuesta de
posman
le falta
Set rs = conn.Execute("insert into locales_anto (id,nombre,fecha,factor,tarifa,lectura) values ('" & id_d & "','" & local & "','" & mes_ & "','" & factor_d & "','" & tarifa_d &"','" & valor & "'
)")
Suerte