Relación entre Tablas

[FlashO]

A ver, lo que yo quiero hacer es lo siguiente:

Tengo 3 tablas. La primera tiene los campos productos y categorías. La segunda tiene las categorías con su id correspondiente. Y en la tercera lo que quiero es relacionar la id de cada producto de la primera tabla con la id de su categoría correspondiente de la segunda.
Por tanto quedaría la relación almacenada en la tercera tabla.
Por ejemplo el producto de la tabla 1 con id 24, tiene como categoría: acción.
En la tabla 2 la categoría acción tiene como id el 10.
Lo que quiero es hacer una tercera tabla que me almacene la relación de cada registro por id's, en este caso: 24, 10.

He probado a hacer lo siguiente pero no consigo lo que deseo:

registros.open "select * from peliculas",conexion


select case registros("nombre")
case "Acción"
conexion.Execute ( "INSERT INTO relacion(IDtabla1, IDtabla2) select tabla1.id, tabla2.id from tabla1, tabla2; ")
end select