The problem is what I had mentioned in my first post...trying to grab the
attachment filenames and placing them into a temp recordset.  Your note
about DistrictIncidentNum needing quotes if it is a text field is exactly
what was causing me problems.  The completed Subroutine is below:

Private Sub cmdPrintAttach_Click()
   Dim Cnn As ADODB.Connection
   Dim Rst As ADODB.Recordset
   Dim sSQL As String
   Dim strCurrentAttachment As String
   Dim strPath As String
   Dim strName As String
   Dim strIncidentID As String
   Dim strExtension As String
   Dim appWord As Word.Application
   Dim docPrint As Word.Document

   Set Cnn = CurrentProject.Connection
   Set Rst = New ADODB.Recordset
   strIncidentID = Me.DistrictIncidentID
   strPath = "S:\Security\Email_Archives\Incident_Report_Attachments\" & _
       strIncidentID & "-"

   sSQL = "SELECT tAttachments.Attachment" & vbCrLf & _
           "FROM tAttachments" & vbCrLf & _
           "WHERE tAttachments.DistrictIncidentNum =" & _
               Chr$(34) & [Forms]![fDistrictSub]![DistrictIncidentNum] &
Chr$(34)

   Rst.Open sSQL, Cnn

   Do While Not Rst.EOF
       strCurrentAttachment = Rst(0)
       strName = strPath & strCurrentAttachment
       strExtension = Right(strCurrentAttachment, 3)
       Select Case strExtension
           Case "pdf"
               Shell ("C:\Program Files\Adobe\Acrobat
7.0\Reader\AcroRd32.exe /t " & strName)

           Case "doc"
               Set appWord = New Word.Application

               With appWord
               Set docPrint = .Documents.Open(strName)
                   With docPrint
                       .PrintOut
                       .Close 0
                   End With
                   .Quit
               End With

           Case "txt"
               Set appWord = New Word.Application

               With appWord
               Set docPrint = .Documents.Open(strName)
                   With docPrint
                       .PrintOut
                       .Close 0
                   End With
                   .Quit
               End With

           Case "tif"
               Shell ("C:\Program Files\Common Files\Microsoft
Shared\MODI\11.0\mspview.exe " & strName)

           Case "jpg"
               Shell ("C:\Program Files\Microsoft Office\OFFICE11\OIS.EXE "
& strName)

           Case "htm"
               Application.FollowHyperlink (strName)

       End Select

       Rst.MoveNext
   Loop

   Set Rst = Nothing
   Set Cnn = Nothing
   Set docPrint = Nothing
   Set appWord = Nothing

End Sub

Thanks for the help!