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