Database control

Um I have a slight problem, I figured out how to open a database thru a common dialog control.

But i cant get it to close the one I had open before.

The code I use to open the database is:
Set VehDatabase = DBEngine.Workspaces(0).OpenDatabase(cdlDatabase.FileName)
Set rsVehicles = VehDatabase.OpenRecordset("PricesList", dbOpenDynaset)
Data1.DatabaseName = (cdlDatabase.FileName)

If anyone can help with the code to close the existing database it would help my program heaps

thy this:

close myDatabase.mdb
set myDatabase = nothing
close myRecordset
set myRecordset = nothing