PsBar.Value = 5
tablestring = "create table Love ( cID char (5),cName char (20),cLanguage char (15),iLenth int, " & _
                                   "dPublishDate datetime,iPrice int, cParts char (100),cDirector char (100)," & _
                                   "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 12
tablestring = "create table Comedy ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 20
tablestring = "create table Cartoon ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 30
tablestring = "create table science ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 40
tablestring = "create table venture ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 50
tablestring = "create table Action ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 60
tablestring = "create table art ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 70
tablestring = "create table war ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 80
tablestring = "create table advertisement ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 90
tablestring = "create table terror ( cID char (5),cName char (20),cLanguage char (15),iLenth int," & _
                                     "dPublishDate datetime,iPrice int,cParts char (100),cDirector char (100)," & _
                                     "cStory char (2000),cPicpath char (200),cLevel char (10),iStock int)"
rst.Open tablestring, con, adOpenDynamic, adLockOptimistic

PsBar.Value = 100
Dim a As Integer
a = MsgBox("數(shù)據表建立成功！：） & _是否要向數(shù)據表中添加初始數(shù)據！", vbYesNo, 提示信息!)
If a = 6 Then
PsBar.Visible = False
PsBar2.Visible = True
With rst
    .Open "insert love values ('001','百年好合','中文 ',1.2 ,02/05/06 ,3 ,'鄭秀文 古天樂 李冰冰 ','林雪 韓君婷 ', '在今年馮小剛沒有賀歲片推出的情況之下，期望能在新年假期里看看合家歡電影的內地觀眾恐怕會若有所“失”。賀歲檔是內地電影市場上最為有特點也最為火爆的檔期，精明的電影商當然不會錯過這樣一個賺錢機會。','h:\pictures\百年好合.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert love values ('002','我的失憶男友','中文 ',3,03/04/05 ,5,'古天樂 應采兒 ','馬楚成 ', '從美國歸來的丁叮(應采兒飾)在北京戲劇學院就讀表演系，她有著天使般的清純外貌、活潑可人的性格，和一顆驕傲而堅毅的心靈。一次，她在幫助同學追趕男友時，意外地碰上了“花心”大帥哥阿當(古天樂飾)。阿當正要甩掉一群死纏爛打的美少女，混亂之中，二人相遇，阿當怦然心動，一見傾情。于是相約第二天在天壇放風箏。約會之時，阿當從美女叢中邁向丁叮，并表白愛意。從此，阿當用盡萬般“時尚、新奇”攻勢展開追求，丁叮也陶醉其中不可自拔，共同墜入愛河。','h:\pictures\我的失憶男友.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Love表的初始記錄添加成功！ ：）"
    PsBar2.Value = 10
    .Open "insert comedy values ('001','運財智多星','中文 ',1.2,02/02/02 ,3 ,'陳百祥 袁詠儀 鐘麗緹 ','鐘麗緹 ', '九天玄女（鐘麗緹）因與鬼佬天使Michael (王敏德)幽會而被貶落凡間，而一直暗戀她的橫財神阿另（陳百祥）決意跟隨她一起下凡。及后另遇上貪錢的骨妹靚（袁詠儀），令到她逢賭必贏，但另仍然鐘情九天玄女已投胎成為美國賭聲公關經理Christy,在香港主持賭王大賽以搏取她的芳心。','h:\pictures\運財智多星.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert comedy values ('002','筆林小子Ⅱ新烏龍院','中文 ',1.5,02/05/18 ,3,'釋小龍 郝邵文 吳孟達','鄭少秋 李名煬', '女魔頭天魔再現(xiàn)江湖，并收買糊涂殺手黃檸檬（張衛(wèi)健）及紅檸檬（葉全真）前往一座名不見經轉的老寺烏龍院，企圖奪得放于面璧大師右手掌的洗髓經秘笈。怎料，他倆卻遇上寺內三名行蹤怪誕的弟子，分別是體重與膽色同重的大師兄（吳孟達）、鬼主意通天的小文（郝邵文）及武學奇才小龍（釋小龍）。此三名弟子不時與其師父（李明煬）斗法，但在黃、紅檸檬眼中，卻以為另有文章。其間，大師兄趁化緣機會，帶同小文與小龍偷拍廣告賺錢，因而結識了廣告明星鄭大俠（鄭少秋）。天魔突然出現(xiàn)，并言明當日與面壁結下情緣，但他去忘恩負義，因此天魔懷恨在心，定要致面壁于死地。','h:\pictures\筆林小子Ⅱ新烏龍院.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Comedy表的初始記錄添加成功！ ：）"
    PsBar2.Value = 20
    .Open "insert cartoon values ('001','駭客帝國動畫版','英文',3,03/03/28 ,6 ,'Matrix','沃卓斯基兄弟 ', '駭客帝國動畫版》(The Animatrix)是一系列基于Matrix這一相同主題但又各自獨立的動畫短篇集，共有9部。其制作匯集了來自日本、韓國、美國三國的7位頂尖動畫制作人，影片在“Matrix”——電影《駭客帝國》中的虛擬世界的基礎之上，對“Matrix”的誕生、人類與機器之間的戰(zhàn)爭等等細節(jié)充分展開想象，勾畫出Matrix世界里一幅幅不同側面、精彩紛呈的景象。','h:\pictures\駭客帝國動畫版.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert cartoon values ('002','橙路劇場版','日文 ',1.2,02/09/18 ,3 ,'橙路','松本泉', 'ORANGE ROAD》的劇場版可說是電視系列的完結篇，全篇的悲傷氣氛完全不同於TV版的喜鬧。故事的結局描述：一次在電話中，恭介和丸子彼此表示了互相愛慕之意，恭介了解後，便毅然決定和阿光分手。為了喚回恭介的愛，阿光不斷的找機會親近恭介，但恭介全然不接受。在考試的前一天，阿光心碎到了極點，抓著恭介的衣服不放，希望恭介不要離開她，但恭介仍然推開了她，留下阿光一個人獨自蹲在路燈下哭泣。不久下起大雨，恭介想到可能仍在路燈下淋雨，想拿傘給她但又怕她難以割舍，於是悲傷的說著：「再見！」三角關系也因而結束。之後，以丸子和恭介同時考上大學而結尾。','h:\pictures\橙路劇場版.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Cartoon表的初始記錄添加成功！ ：）"
    PsBar2.Value = 30
    .Open "insert science values ('001','黑客帝國2','英文 ',2,03/04/01,6 ,'基努·里夫斯 勞倫斯·菲什伯恩 凱莉·安·摩絲 莫妮卡·貝魯奇','安迪·沃卓斯基（andy wachowski）　拉里·沃卓斯基（larry wachowski） ', '黑客帝國2》講述的是電腦母體（matrix）遭到病毒攻擊，尼奧、孟斐斯和trinity等一眾戰(zhàn)士要拯救被困在母體中的人類。而越來越多的人從被困的虛擬世界里醒悟過來，他們都努力要生活在真實的世界里。隨著這些人數(shù)量的增加，人類與病毒之間的戰(zhàn)爭轉移到人類聚居的地球核心城市zion（zion成為人類最后的真實世界），人類在這里作最后抵抗，它也成為人類的作戰(zhàn)中心。奇諾飾演的neo與同伴反擊殺人網絡matrix，matrix也同樣大力反擊，并制造出殺人病毒virii突襲neo等人。neo不幸中招后失去了自由和穿梭虛擬人類世界與matrix世界neo唯一可以做的，就是找出病毒根源，將制造病毒的機械人cpu毀掉，在故事的結尾neo會突出重圍并解開matrix之謎……', 'h:\pictures\黑客帝國2.jpg ','限制',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert science values ('002','X戰(zhàn)警2','英文 ',1.5,03/01/28,5 ,'休·杰克曼 帕特里克·斯圖爾特 伊恩·邁克蘭 法姆克·詹森 哈莉·貝瑞 布萊恩·考克斯 ','安娜·帕奎因 胡凱莉 阿蘭·卡明 ', '雖然金剛狼等正義的X戰(zhàn)警為人類做了許多事情，維護了社會的安定，但是人類還是害怕他們說不定會在某個時刻爆發(fā)出來的強大力量，他們的生活依然困難重重，只能住在X戰(zhàn)警的基地——黑暗之腦。但是，他們簡單的安定也無法得到人類的寬容：不久前發(fā)生了一起美國總統(tǒng)遭到神秘刺殺的案件，許多反對變種人的人們一致認為是變種的X戰(zhàn)警們所為，于是人類派出了史提克（布萊恩·考克斯 飾）將軍對X教授的訓練學校突擊，并逮捕了數(shù)名學生 ','h:\pictures\X戰(zhàn)警2.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Science表的初始記錄添加成功！ ：）"
    PsBar2.Value = 40
    .Open "insert venture values ('001','飛向太空2002','英文 ',1.2,02/11/07 ,3 ,'治·克魯尼 娜塔莎·麥克艾霍恩 ','維奧拉·戴維斯 烏爾里希·圖科', '未來某年，在外太空的空間站“普羅米修斯”上駐扎的一個科學家小組切斷了空間站和地球的所有聯(lián)系。心理學家克里斯·凱爾文博士(喬治·克魯尼飾演)受命去調查這些科學家的神秘行為。‘普羅米修斯’繞著一個液體星球Solaris旋轉進行勘察，這個星球蘊藏了神秘的能量。在空間站執(zhí)行任務的科學家小組組長是凱爾文博士的好朋友吉巴里安，正是他要求凱爾文前往“普羅米修斯”幫助他們。到達空間站以后，凱爾文震驚的發(fā)現(xiàn)吉巴里安已經神秘的自殺了，而小組的另外兩位科學家則情緒極度不穩(wěn)定，經常出現(xiàn)妄想的癥狀。他的意見現(xiàn)在對“普羅米修斯”的前景至關重要。','h:\pictures\飛向太空2002.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert venture values ('002','星際之門','英文 ',1.2,02/4/12,4,'特·盧塞爾 詹姆斯·斯帕德',' 麥克艾霍恩', '現(xiàn)代人關于誰建造了古埃及金字塔的問題爭論不休。為了尋找有力的證據，考古學者丹尼爾·杰克遜博士和政府派遣的以杰克·歐尼爾上校為首的軍方威猛小分隊通過兩個世界的互通之門進入星際之門的另一邊。他們來到法老傳說中的神話世界，一個被太陽神統(tǒng)治的國家。小分隊成員與那里的人們進行思想和語言的交流，使被奴役的人民覺醒，和他們一起抗爭太陽神……最終，小分隊勝利完成任務，返回地球。而丹尼爾在星際之門找到了幸福并留在那里 ','h:\pictures\星際之門.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Venture表的初始記錄添加成功！ ：）"
    PsBar2.Value = 50
    .Open "insert Action values ('001','武者回歸','中文 ',1.2,02/11/14 ,3 ,'金城武 鈴木杏 岸谷五朗','樹木希林', '2002年10月19日在橫濱的海岸，宮本正要潛入另一個地下世界，在這里他遇上了黑市的操控人——溝口（岸谷五朗），而這人亦正是當年殺死他好友的兇手。宮本按捺不住激動的情緒，與宮本展開一場死斗。就在這場槍林彈雨的死斗當中，宮本錯手槍傷了一名無辜少女美里（鈴木杏）。美里大難不死，還聘請宮本替她完成一項特別任務。','h:\pictures\武者回歸.jpg ','限制',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert Action values ('002','防彈武僧','中文 ',1.5,03/02/24,5,'周潤發(fā)','保羅·亨特', '在本片中，發(fā)哥飾演一位沒有名字的神秘僧侶，他來自中國西藏，60年來，一直擔負著重任——保護一卷神秘的古經卷軸，那是以中國古代經文刻寫而成的武功秘籍，蘊藏無比強大的奇異力量，只要得到這種力量，就可以無敵于天下，無數(shù)心懷叵測的人都曾經或正在覬覦著它。為了不讓卷軸落入奸惡之徒的手里，為禍人間，無名武僧避而出走，足跡遍及大江南北。 ','h:\pictures\防彈武僧.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
     MsgBox "Action表的初始記錄添加成功！ ：）"
     PsBar2.Value = 60
    .Open "insert art values ('001','25個孩子一個爹','中文 ',1.2,03/2/24 ,5 ,'黃宏 李琳 雷恪生 斯琴高娃 于藍','黃宏', '改革開放以來，人民的生活有了極大的改善，尤其是黨的富民政策使一部分人首先脫貧致富，趙光就是其中的一個。雞大戶趙光，出身孤兒，是下溝村的鄉(xiāng)親把他拉扯大的。小時候沒有衣服穿，人們叫他趙光腚，到了歲數(shù)娶不上媳婦，人們叫他趙光棍，如今靠勞動致富，人們又叫他趙光榮了。通過一段時間的朝夕相處趙光和孩子們產生了深厚的感情，同時也找到了自身的人生價值。最后在各級組織和鄉(xiāng)親們的協(xié)助下，孩子們終于有了自己的歸屬。該片以獨特的角度講述了一段真實、感人的故事，表現(xiàn)了人們在當今商品社會中對于真情的渴望。','h:\pictures\25個孩子一個爹.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert art values ('002','美麗人生','英文 ',1.5,02/8/5 ,5 ,'羅貝爾托貝尼尼 ','妮可麗塔布拉斯契', '基多是一個樂觀向上的猶太男子（貝貝尼飾演），從外地來到小鎮(zhèn)追求新生活，他最大的夢想就是開一家書店。在小鎮(zhèn)上，基多遇到了他的心上人――小學教師朵拉，兩人共墜愛河，建立了幸福的家庭。幾年后，他們有了一個小男孩，還開了自己夢寐以求的書店。誰知好景不長，第二次世界大戰(zhàn)爆發(fā)了，一家人都被關進了集中營。愛家的爸爸為了不讓兒子幼小的心靈中蒙上戰(zhàn)爭的陰影，告訴他，所有發(fā)生的這一切，不過是一個簡單的游戲…… ','h:\pictures\美麗人生.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Art表的初始記錄添加成功！ ：）"
    PsBar2.Value = 70
    .Open "insert war values ('001','大地英豪','英文 ',1.5,00/5/9 ,3 ,'丹尼爾·戴·劉易斯 曼德萊尼·斯多夫','摩根', '1757年，英法兩國為爭奪美洲殖民地而不停交戰(zhàn)。在哈德遜河以西地區(qū)的諸多土著中，有一支叫摩根族的，戰(zhàn)爭使之僅剩了老戰(zhàn)士千家谷父子和他的白人養(yǎng)子豪克依三個人。一次，英軍少校德勤在護送上校之女歌娜姐妹去威廉亨利堡途中，被實是奸細的休倫族向導馬瓜誘騙，遭到法軍民團的伏擊。危急之中，三個摩根人解救了他們，并護送他們去威謙亨利堡上校蒙路的營中。 途中，他們看到了被法軍屠戮的民宅， 從豪克依口中，歌娜也理解了她們與土著在文化習慣上的諸多差異，并為他們對自由的維護精神而感動。當他們來到威廉亨利堡時，卻發(fā)現(xiàn)法軍正在圍攻英軍。原來蒙路上校早已向韋將軍發(fā)出求援信，不想落入馬瓜手中而戰(zhàn)況告急','h:\pictures\大地英豪.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert war values ('002','黑鷹計劃','中文 ',1.2,02/12/5,5 ,'喬什·哈奈特 伊萬·麥奎格','黑鷹 ', '由美國陸軍三角洲部隊和游騎兵部隊的120名特種精英組成的特別行動小組受命深入摩加迪沙完成雙重使命：為當?shù)厝罕娞峁┤说乐髁x援助，同時捉拿索馬里軍事政府的兩名高級將領。意外發(fā)生了，由于準備不足和情報錯誤，美軍陷入了包圍。更遭的是，兩架運送美軍的黑鷹直升機被索馬里軍隊擊落，其中一架黑鷹上的全部官兵當場死亡，另一架黑鷹的駕駛員陷入索馬里軍隊控制區(qū)。被隔絕在摩加迪沙街頭的美軍一方面焦急地等待救援部隊，一方面又要想辦法解救黑鷹上的隊友。','h:\pictures\黑鷹計劃.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "War表的初始記錄添加成功！ ：）"
    PsBar2.Value = 80
    .Open "insert advertisement values ('001','威馳新風','中文 ',0.15,03/1/15,3 ,'吳彥祖','張藝謀 ', '著名導演張藝謀于汽車公司TOYOTA合作打造了中國首部超長廣告片--VIOS威馳，5分鐘廣告片《威馳新風》，男主角有香港明星吳彥祖出任，內地模特徐筠從4000多為參賽這種脫穎而出成為女主角，樸樹創(chuàng)作演唱的《Colorful Days》成為廣告主題曲','h:\pictures\車.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert advertisement values ('002','手機','中文 ',0.2,02/12/3 ,3 ,'鈴木亞桂 ','帖葉 ', '未來的手機 ','h:\pictures\手機.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Advertisement表的初始記錄添加成功！ ：）"
    PsBar2.Value = 90
    .Open "insert terror values ('001','十三鬼叫門','英文 ',1.5,02/5/7,3,'莎儂·伊麗莎白 馬修·里蘭德 ','亞瑟 ', '生活平靜的亞瑟一家意外地被告知，他們一位疏離已久的遠方叔父過世了，這位生性古怪孤僻的老人在臨死前把一幢大屋子留給了他們。生活得并不寬余的亞瑟一家人得到這筆天降之財自然是喜出望外，于是一家人浩浩蕩蕩開赴那座古老的宅子。等他們看到這座宏偉的宅院時簡直不敢相信自己的好運氣，雖說位置有點荒僻，但這哪里是屋子，簡直就是一座城堡，巨大的庭院，蔥郁的灌木，高大的建筑，還有屋子里面迷宮般數(shù)不清的房間回廊。最初的驚喜過后，亞瑟的大女兒、天生敏感的凱西隱隱約約開始覺得這個大宅子似乎有一些不對勁，但是卻又說不出哪里不對勁，但是沒過多久，在家庭成員們身邊發(fā)生的一系列怪事就驗證了凱西的預感，這座大房子果然蘊藏著某種詭異的力量，它在試圖用這種靈異的威力驅趕走亞瑟一家，冥冥中，是誰在操控著一切？ ','h:\pictures\十三鬼叫門.jpg ','限制',3)", con, adOpenDynamic, adLockOptimistic
    .Open "insert terror values ('002','吸血鬼女王','英文 ',1.5,02/10/8,3 ,'阿麗雅 斯圖爾特·湯森德 瑪格麗特·莫羅 ','文森·佩雷茲', '傳說中的吸血鬼里斯特從幾十年的長眠中蘇醒，他決定不再屈尊于陰暗之中，而要像人一樣生活在陽光照耀之下。于是他憑借著吸血鬼特有的迷人魅力與孑孓的氣質，成為了一個偶像級的搖滾明星，并用他的音樂喚醒了在北極冰窖中已經沉睡近6000年的吸血鬼女王--來自埃及的阿卡沙。阿卡沙女王是吸血鬼的祖先，已經在地下蟄伏了數(shù)十個世紀，一直伺機統(tǒng)治世界。蘇醒后的吸血鬼女王不僅立刻展開了一場向舊日仇人報復的計劃，而且更一心想與身邊的里斯特一道主宰地球，將人間變?yōu)榈鬲z。可是另一方面，吸血鬼獵人杰西·瑞薇絲卻鬼使神差地愛上了風度翩翩的里斯特，展開了一段孽緣。里斯特會作出什么樣的選擇？冷酷無情的吸血鬼女王阿卡沙又會有什么樣的反應？ ','h:\pictures\吸血鬼女王.jpg ','普通',3)", con, adOpenDynamic, adLockOptimistic
    MsgBox "Terror表的初始記錄添加成功！ ：）"