Public Sub ConnectSage()
        Dim sSetupFile As String

        Dim oInvoiceRecord As Object

        ConfigOpt.Initialize(Asm.Location + ".config")

        sSetupFile = ConfigOpt.GetOption("SageDirectory") & "\SETUP.DTA"
        Dim oFile As System.IO.FileInfo
        oFile = New System.IO.FileInfo(sSetupFile)

        Select Case oFile.Length

            Case 10640
                oSDO = New SageDataObject120.SDOEngine
            Case 10745
                oSDO = New SageDataObject130.SDOEngine
            Case 11076
                oSDO = New SageDataObject140.SDOEngine
            Case Else
                MsgBox("Sage Version incorrect.  This program only supports V12, 2007 and 2008")
                Mainform.Close()
        End Select

        oWS = oSDO.Workspaces.Add("Example")
        szDataPath = ConfigOpt.GetOption("SageDirectory")

        oInvoiceRecord = oWS.CreateObject("InvoiceRecord")
        oInvoiceRecord.Fields.Item("INVOICE_NUMBER").Value = InvoiceRef


    End Sub