Cerrar Base de Access

Hola foro!

Tengo un problema con el siguiente codigo:

Sub Main()
Dim cat As ADOX.CatalogClass = New ADOX.CatalogClass
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\NewMDB.mdb;" & _
"Jet OLEDB:Engine Type=5")
cat = Nothing
Console.WriteLine("Database Created Successfully")
Console.Read()

File.Delete("C:\Temp\NewMDB.mdb")
Console.WriteLine("Database Deleted")
Console.Read()
End Sub

Cuando el programa intenta eliminar el archivo genera una excepción de que
el archivo esta en uso, mi pregunta es ¿Como cierro el archivo una vez que ya
ha sido creado?

Les agradesco de antemano.