Access - 1º MODO

************************************
'MODO 1. Consulta de Accion
'Me dice que el objeto no es valido o no tiene valor. Si le doy un nombre al QueryDef medice que ya existe
Dim dbs As Database, qdf As QueryDef
Dim strSQL As String

' Devuelve una referencia a la base de datos activa.
Set dbs = CurrentDb
strSQL = "UPDATE MOLDES SET seek=" & MOLDE_bus & ", BALDA=Null, ESTADO=" & Estado_Sub & " WHERE index=MOLDE"
' Crea un nuevo objeto QueryDef.
Set qdf = dbs.CreateQueryDef(, strSQL)
'He probado con Set qdf = dbs.CreateQueryDef("NuevaLocalizacion", strSQL)
' Ejecutar QueryDef.
qdf.Execute
Debug.Print qdf.RecordsAffected
Set dbs = Nothing
' NuevaLocalizacion.Delete