Private Sub CmdNew_Click()
Dim LastInSet As Integer, TotalInSet As Integer, V As Long, C As Long
Dim Pic As String, Img As String, Gen As String, SGen As String, TExt As String
'Walk Over Any Errors
On Error Resume Next
'Save The Added Info For Next Record
Img = Me![Picture]
Pic = Me.Imgage1.Picture
Gen = Me![Genre]
SGen = Me![SubGenre]
V = Me![VersionID]
C = Me![DefaultChartID]
LastInSet = Me![NumberInSet]
TotalInSet = Me![TotalInSet]
TExt = Me![TitleExtra]
    DoCmd.GoToRecord , , acNewRec
If MsgBox("I Will now Create a new disc For This Item do you wish to continue?" & vbCrLf & "Choseing No Will close this screen", vbExclamation + vbYesNo, "New Disc?") = vbNo Then
DoCmd.Close acForm, Me.Name
Exit Sub
End If
    Me![NumberInSet] = LastInSet + 1
    Me![TotalInSet] = TotalInSet
    Me![Picture] = Img
    Me.Imgage1.Picture = Pic
    Me![Genre] = Gen
    Me![SubGenre] = SGen
    Me![VersionID] = V
    Me![DefaultChartID] = C
    Me![TitleExtra] = TExt
        
End Sub