Listing 2: The OpenXML Subroutine

Sub OpenXML
  window.clearInterval(TimerInterval)
  On Error Resume Next
  Set filesys = CreateObject("Scripting.FileSystemObject")
  FileString = "C:\Temp\DRS-" & strComputer & "-SID.xml"
  If Not filesys.FileExists(FileString) Then
    txtarea.value = filestring & " Does Not Exist."
    Exit Sub
  Else
    Set DRS = nothing
    ' ******* BEGIN CALLOUT A *******
    Set DRS = CreateObject("ADOR.Recordset")
    DRS.Open FileString
    ' ******* END CALLOUT A *******
    ' ******* BEGIN CALLOUT B *******
    ComputerSource.value = strComputer
    ' ******* END CALLOUT B *******
    Call FilterDRS
  End If
End Sub