PsBar2.Value = 100
    MsgBox "所有記錄添加成功！數據表初始化成功！：））"
End With







Select Case TabStrip1.SelectedItem.index
       Case 1
       tableName = "love"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath ,'級別'=cLevel from love", con, adOpenDynamic, adLockOptimistic
       Call display
       LoveDataView.Visible = True
       ComedyDataView.Visible = False
       LoveData.rsCommandView.Requery
       Set LoveDataView.DataSource = LoveData
       rst.Close
       Case 2
       tableName = "comedy"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from comedy", con, adOpenDynamic, adLockOptimistic
       Call display
       With ComedyDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       LoveDataView.Visible = False
       ComedyDataView.Visible = True
       ComedyData.rsComComedy.Requery
       Set ComedyDataView.DataSource = ComedyData
       rst.Close
       Case 3
       tableName = "cartoon"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from cartoon", con, adOpenDynamic, adLockOptimistic
       Call display
       With Cartoondataview
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = True
       CartoonData.rsComCartoon.Requery
       Set Cartoondataview.DataSource = CartoonData
       rst.Close
       Case 4
       tableName = "Science"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from science", con, adOpenDynamic, adLockOptimistic
       Call display
       With ScienceDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       ScienceDataView.Visible = True
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       ScienceData.rsComScience.Requery
       Set ScienceDataView.DataSource = ScienceData
       rst.Close
       Case 5
       tableName = "venture"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from venture", con, adOpenDynamic, adLockOptimistic
       Call display
       With VentureDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       VentureDataView.Visible = True
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       VentureData.rsComVenture.Requery
       Set VentureDataView.DataSource = VentureData
       rst.Close
       Case 6
       tableName = "action"
       rst.Open "select '名稱'=cName,'語言'=cLanguage,'片長'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'庫存'=iStock,'主演'=cParts,'導演'=cDirector,'故事概述'=cStory,'圖片路徑'=cPicpath, '級別'=cLevel from action", con, adOpenDynamic, adLockOptimistic
       Call display
       With ActionDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500