Visual Basic - no me añade registros

tengo un formulario desde donde meto datos por teclado y me los guarda en variables. Con esos datos quiero insertar un nuevo registro en la tabla PUBLICACIONES.

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

me suena que alguien te ha contestado antes (si no a ti, pues aotrO)
BseTemp = CurrentDb no existe en VB (eso es vba) tienes que abrir la BD como set db = opendatabase("ylabasede datos") y lo de insertinto cambiarlo por un addnew te ahorras codigo.

es que estoy en visual basic pero desde access 2000, por eso abro así directamente. De todas formas es que es como si no me hiciese nada, no me da fallos ni nada, simplemente ignora la orden....