Linked Tables - How to Close External Database?

I have a re****t that within the Re****t_Open event, I create a
tem****ary database and create a linked table to it (using the code
fragment below).

    Dim tdfNew As TableDef
    Dim RS As Recordset
    Dim wrkDefault As Workspace
    Dim dbsTemp As Database

    Dim strTableName As String

    ' Get default Workspace.
    Set wrkDefault = DBEngine.Workspaces(0)

    ' Make sure there isn't already a file with the name of the new
database.
    If Dir(mstrTempDatabase) <> "" Then Kill mstrTempDatabase

    'Create a new temp database
    Set dbsTemp = wrkDefault.CreateDatabase(mstrTempDatabase,
dbLangGeneral)

    ' Delete the link to the temp table if it exists
    If TableExists(mstrTableName) Then CurrentDb.TableDefs.Delete
mstrTableName

    ' Create the temp table
    Set tdfNew = dbsTemp.CreateTableDef(mstrTableName)
    With tdfNew
        .Fields.Append .CreateField("Resource Name", dbText)
        .Fields.Append .CreateField("Profile", dbMemo)
        dbsTemp.TableDefs.Append tdfNew
    End With

    dbsTemp.TableDefs.Refresh

    ' Link to the Im****t tables in the temp MDB
    Dim tdfLinked As TableDef
    Set tdfLinked = CurrentDb.CreateTableDef(mstrTableName)
    tdfLinked.Connect = ";DATABASE=" & mstrTempDatabase
    tdfLinked.SourceTableName = mstrTableName
    CurrentDb.TableDefs.Append tdfLinked

    CurrentDb.TableDefs.Refresh

    RefreshDatabaseWindow


Now the problem. I can delete the linked table, but the other
tem****ary database is still open and I cannot delete it. It is
released about 5-10 seconds after the re****t has been closed.

Can someone help me on forcing a close on this re****t so I can delete
the tem****ary file.

Thanks in advance.