.ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       ActionDataView.Visible = True
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       ActionData.rsComAction.Requery
       Set ActionDataView.DataSource = ActionData
       rst.Close
       Case 7
       tableName = "art"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from art", con, adOpenDynamic, adLockOptimistic
       Call display
       With ArtDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       ArtDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       ArtData.rsComArt.Requery
       Set ArtDataView.DataSource = ArtData
       Case 8
       tableName = "war"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from war", con, adOpenDynamic, adLockOptimistic
       Call display
       With WarDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       WarDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       WarData.rsWarCommand.Requery
       Set WarDataView.DataSource = WarData
       Case 9
       tableName = "advertisement"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from advertisement", con, adOpenDynamic, adLockOptimistic
       Call display
       With AdvertisementDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       AdvertisementDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       AdvertisementData.rsComAdvertisement.Requery
       Set AdvertisementDataView.DataSource = AdvertisementData
       Case 10
       tableName = "terror"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from terror", con, adOpenDynamic, adLockOptimistic
       Call display
       With TerrorDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       TerrorDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       TerrorData.rsComTerror.Requery
       Set TerrorDataView.DataSource = TerrorData
       
End Select