Sub MainSub()

Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Dim PO As AccpacCOMAPI.AccpacView

On Error GoTo ACCPACErrorHandler

Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim fso As Object
Dim ts As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
mDBLinkCmpRW.OpenView "PO0620", PO

'Change the path
Set ts = fso.CreateTextFile("C:\Temp\PurchaseOrderHeaderFields.txt", True, False)

Dim l As Long

For l = 0 To PO.Fields.Count
    ts.WriteLine PO.Fields(l).Name & " - " & PO.Fields(l).Description
Next l

ts.Close

Set PO = Nothing
Set mDBLinkCmpRW = Nothing

Exit Sub

ACCPACErrorHandler:
  Dim lCount As Long
  Dim lIndex As Long
  If Errors Is Nothing Then
      MsgBox Err.Description
  Else
      lCount = Errors.Count
      If lCount = 0 Then
          MsgBox Err.Description
      Else
          For lIndex = 0 To lCount - 1
              MsgBox Errors.Item(lIndex)
          Next
          Errors.Clear
      End If
      Resume Next
  End If
End Sub