Listing 2: The OpenUpdateXML Subroutine

Sub OpenUpdateXML
  On Error Resume Next
  Set DRS = Nothing
  Set DRS = CreateObject("ADOR.Recordset")
  Set filesys = CreateObject("Scripting.FileSystemObject")
  If NOT filesys.FileExists(FileString) Then
    Call CreateDRS
  End If
  DRS.Open FileString
  Call UpdateSID
End Sub