Play next song code causes problems

Public Sub nSong()
 If Not player.Status = "playing" Or Not player.Status = "paused" And frmSetup.Songopt(1).Value = True Then
  frmMain.mnuForward.Checked = False
 frmMain.mnutrayFastForward.Checked = False
'Play the next song in the list
   frmMain.lblTitle.Caption = "Title:"
    frmMain.lblArtist.Caption = "Artist:"
    frmMain.lblAlbum.Caption = "Album:"
    frmMain.lblYear.Caption = "Year:"
    frmMain.lblComment.Caption = "Comment:"
    frmMain.lblGenreCode.Caption = "GenreCode:"
    If s >= frmSetup.Lstsongs.ListCount And frmMain.mnuRepeat.Checked = True Then
       s = 0
    Else
       s = s + 1
    End If
    play (s)
 End If
End Sub