Access - no me añade registros

Tengo el siguiente código que no me añade registros a la tabla, a lo mejor me falta alguna cosa y no me he dado cuenta. Por favor, a ver si alguien me puede ayudar. Gracias

Dim RcstNew As Recordset
Dim BseTemp As Database

Set BseTemp = CurrentDb
Set RcstNew = BseTemp.OpenRecordset("PUBLICACIONES")


SQl1 = "INSERT INTO [PUBLICACIONES](NUM, AUTOR1, AUTOR2, AUTOR3" _
& " , TITULO, PREMIO, CATALOGACION, TEMATICA, LUGAR_EDIC, " _ ANIO_EDIT," _
& " AUTOR_ILUSTR, ISBN, COLABORACION, SALA_EXP, Fecha_Exp,DESCRIPCION," _
& " AUTOR_PROLOGO, DEP_LEGAL)" _
& " VALUES(" & NewNum & ", '" & NewA1 & "', '" _
& NewA2 & "', '" & NewA3 & "', '" & NewTit & "', '" _
& NewPrem & "', '" & NewCat & "', '" & NewTem & "', '" & NewLug & "', '" _
& NewAnio & "', '" & NewIlus & "', '" & NewISBN & "', '" & NewColab & "', '" _
& NewSala & "', '" & NewFecha & "', '" & NewDesc & "', '" & NewProl & "', '" _
& NewDLeg & "');"

BseTemp.Execute SQl1

Proba esto que sin la necesidad de abrir la base y la tabla te lo tiene que insertar

docmd.runsql("INSERT INTO [PUBLICACIONES](NUM, AUTOR1, AUTOR2, AUTOR3" _
& " , TITULO, PREMIO, CATALOGACION, TEMATICA, LUGAR_EDIC, " _ ANIO_EDIT," _
& " AUTOR_ILUSTR, ISBN, COLABORACION, SALA_EXP, Fecha_Exp,DESCRIPCION," _
& " AUTOR_PROLOGO, DEP_LEGAL)" _
& " VALUES(" & NewNum & ", '" & NewA1 & "', '" _
& NewA2 & "', '" & NewA3 & "', '" & NewTit & "', '" _
& NewPrem & "', '" & NewCat & "', '" & NewTem & "', '" & NewLug & "', '" _
& NewAnio & "', '" & NewIlus & "', '" & NewISBN & "', '" & NewColab & "', '" _
& NewSala & "', '" & NewFecha & "', '" & NewDesc & "', '" & NewProl & "', '" _
& NewDLeg & "')

Espero que te funcione

Suerte

Rodolfo

sigue sin añadirme registros, puede ser pq me falte alguna referencia a alguna librería de objetos¿?¿??¿

me añade cuando relleno todos los campos, pero cuando algun campo lo dejo vacio, no me inserta el registro, y eso que ya tiene un campo clave definido y se lo introduzco por teclado y todo....