Code:
Private Sub cmdCreateNewVolume_Click()
    Dim Response As String
    Dim bSkip As Boolean
    Do Until bSkip = True
      If cboMediumType.Text = "" Then Exit Sub
      Set rs = New ADODB.Recordset
      Response = InputBox("Enter volume name", "New Volume")
      SetMediaType
      rs.Open dtaBackups.RecordSource, dtaBackups.ConnectionString, adOpenKeyset, adLockOptimistic
      rs.Find "Volume_Name = '" & Response & "'", 0, adSearchForward
       
      If rs.EOF = True Then
          Set lstItem = lvwVolumeList.ListItems.Add(, , Response)
          lstItem.SubItems(1) = lvwFileList.ListItems.Count
          rs.AddNew
          rs!Volume_Name = lstItem.Text
          rs!Number_of_Files = lstItem.SubItems(1)
          rs.Update
          rs.Close
          dtaBackups.RecordSource = "SELECT * FROM Files ORDER BY Filename"
          rs.Open dtaBackups.RecordSource, dtaBackups.ConnectionString, adOpenKeyset, adLockOptimistic
          For i = 1 To lvwFileList.ListItems.Count
              rs.AddNew
              rs!Container_Volume = Response
              rs!FileName = Replace(lvwFileList.ListItems(i), "'", "", 1, , vbTextCompare)
              rs!Size = lvwFileList.ListItems(i).SubItems(1)
              rs!DateTime = lvwFileList.ListItems(i).SubItems(2)
              rs.Update
          Next i
          lvwFileList.ListItems.Clear
          cmdRenameSelectedVolume.Enabled = True
          cmdDeleteSelectedVolume.Enabled = True
          cmdRemoveSelected.Enabled = False
          cmdRemoveAll.Enabled = False
          Set lstItem = Nothing
          Set rs = Nothing
          'enough?
          bSkip = True
      Else
          MsgBox "A volume with that name already exists. Please enter another name.", vbExclamation, "Name already exists"
           
          'Exit Sub
      End If
  Loop
End Sub