Visual Basic - HACER CONSULTA DE ACTUALIZACION CON OPERADOR UNION

Hola a todos, el problema que tengo es que no se como hacer una consulta de actualizacion que necesita del operador UNION, la consulta hecha en access me quedo asi, pero no se como se hace en visual:
UPDATE LIBROS SET Estado = "Disponible"
WHERE Codigo_libro NOT IN
(select Codigo_libro
FROM PRESTAMOS);
Necesito saber como se hace esta consulta en visual.

Esa consulta es valida en visual si la puedes hacer,
VarConexion es la variable de conexion que utilizas para conectarte con la base de datos. Si estas utilizando ADO
Dim VarConexion As ADODB.Connection
Dim Ruta As String
Dim NomBase As String
NomBase = "BD.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set VarConexion = New ADODB.Connection
VarConexion .ConnectionString = Conexion
VarConexion .Open Conexion
sql="UPDATE LIBROS SET Estado = "Disponible"
WHERE Codigo_libro NOT IN
(select Codigo_libro
FROM PRESTAMOS)"
VarConexion.Execute Sql