Public Function ExportToWord(sQuery, sFileName, sStationName As String, iPNumber As Integer, vPDate As Variant, Optional bOpenDocument As Boolean = False)
    Dim oWord                 As Object
    Dim oWordDoc              As Object
    Dim oWordTbl              As Object
    Dim bWordOpened           As Boolean
    Dim db                    As DAO.Database
    Dim rs                    As DAO.Recordset
    Dim iCols                 As Integer
    Dim iRecCount             As Integer
    Dim iFldCount             As Integer
    Dim i                     As Integer
    Dim j                     As Integer
    Const wdPrintView = 3
    Const wdWord9TableBehavior = 1
    Const wdAutoFitFixed = 0
    '    Const wdOrientPortrait = 0
    Const wdOrientLandscape = 1

    'Start Word
    On Error Resume Next
    Set oWord = GetObject("Word.Application")    'Bind to existing instance of Word
    If Err.Number <> 0 Then    'Could not get instance of Word, so create a new one
        Err.Clear
        On Error GoTo Error_Handler
        Set oWord = CreateObject("Word.application")
        bWordOpened = False
    Else    'Word was already running
        bWordOpened = True
    End If
    On Error GoTo Error_Handler
    
    Set oWordDoc = oWord.Documents.Add  'Create a new document
    With oWordDoc
     .PageSetup.Orientation = wdOrientLandscape
     .Selection.TypeText Text:="Station Name"   ' - to be substituted with past value sStationName
     .Selection.TypeParagraph
     .Selection.TypeText Text:="Programme Number"  '- to be substituted with past value iPNumber
     .Selection.TypeParagraph
     .Selection.TypeText Text:="Programme Date"   '- to be substituted with past value vPDate
     .Selection.TypeParagraph
    End With
    'Open our SQL Statement, Table, Query
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sQuery, dbOpenSnapshot)
    With rs
        If .recordCount <> 0 Then
            .MoveLast   'Ensure proper count
            iRecCount = .recordCount    'Number of records returned by the table/query
            .MoveFirst
            iFldCount = .Fields.Count   'Number of fields/columns returned by the table/query

            oWord.ActiveDocument.Tables.Add Range:=oWordDoc.Selection.Range, NumRows:=iRecCount + 1, NumColumns:=iFldCount, _
            DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
            wdAutoFitFixed
             Set oWordTbl = oWordDoc.Tables(1)
              With oWordTbl
              .Style = "Table Grid"
              .ApplyStyleHeadingRows = True
              .ApplyStyleLastRow = False
              .ApplyStyleFirstColumn = True
              .ApplyStyleLastColumn = False
              .ApplyStyleRowBands = True
              .ApplyStyleColumnBands = False
              .Borders.Enable = True

               'Build our Header Row
                For i = 0 To iFldCount - 1
                 .Cell(1, i + 1) = rs.Fields(i).Name
                Next i
               'Build our data rows
                For i = 1 To iRecCount
                  For j = 0 To iFldCount - 1
                   .Cell(i + 1, j + 1) = Nz(rs.Fields(j).Value, "")
                  Next j
                   rs.MoveNext
                Next i
              End With
        Else
            MsgBox "There are no records returned by the specified queries/SQL statement.", _
                   vbCritical + vbOKOnly, "No data to generate an Word spreadsheet with"
            GoTo Error_Handler_Exit
        End If
   End With

    oWordDoc.SaveAs (sFileName)   'Save and close
     oWord.Visible = True
     If bOpenDocument = False Then
        oWordDoc.Close

        'Close Word if is wasn't originally running
        If bWordOpened = False Then
            oWord.Quit
        End If
    End If

Error_Handler_Exit:
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    oWord.Visible = True   'Make Word visible to the user
    Set oWordTbl = Nothing
    Set oWordDoc = Nothing
    Set oWord = Nothing
    Exit Function

Error_Handler:
    If Err.Number = 5148 Then
        MsgBox "Your Table/Query contains a total of " & iFldCount & " fields/columns, but Word tables can only support a maximum of 63.  " & _
               "Please change your Table/Query to only supply a maximum of 63 fields/columns and try again.", _
               vbCritical Or vbOKOnly, "Operation Aborted"
    Else
        MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
               "Error Number: " & Err.Number & vbCrLf & _
               "Error Source: ExportToWord" & vbCrLf & _
               "Error Description: " & Err.Description & _
               Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
               , vbOKOnly + vbCritical, "An Error has Occurred!"
    End If
    Resume Error_Handler_Exit
End Function