' Add Com Reference: Microsoft Access xx Object Library
    '   SaveAsForms("c:\Northwind\Northwind.mdb", "c:\Northwind\")
    Sub SaveAsForms(ByVal dbname As String, ByVal outputfolder As String)
        Dim appAccess As Object
        On Error Resume Next
        appAccess = CreateObject("Access.Application")
        appAccess.OpenCurrentDatabase(dbname)
        For Each objAcObj As Object In appAccess.CurrentProject.AllForms
            appAccess.Application.SaveAsText(2, objAcObj.Name, outputfolder & objAcObj.Name & ".frm")  'acForm
        Next objAcObj
        appAccess.CloseCurrentDatabase()
        appAccess.Quit(2)  'acExit
        appAccess = Nothing
    End Sub