Private Sub CierraFormularios()
Dim frm As Integer
frm = Forms.Count
Do While frm > 0
Unload Forms(frm - 1)
If frm = Forms.Count Then End
frm = frm - 1
Loop
End Sub
Si además no quieres dejarte ninguna BD abierta, a continuación del Loop, pon:
Dim ws As Workspace, db As Database, rs As Recordset
For Each ws In Workspaces
For Each db In ws.Databases
For Each rs In db.Recordsets
rs.Close
Set rs = Nothing
Next
db.Close
Set db = Nothing
Next
ws.Close
Set ws = Nothing
Next
Te lo cierrra absolutamente todo, formularios y BBDD
Saludos.
Pedro