Function FormExist(strForm As String) As Boolean

Dim db As Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb()
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
    If doc.Name = strForm Then FormExist = True
Next doc
Set cnt = Nothing
db.Close: Set db = Nothing

End Function