Listing 6: The CloseIt Subroutine

Sub CloseIt
  On Error Resume Next
  DRS.Close
End Sub