我 用 Crystal Report 生 成 了 一 個 報 表 ， 數(shù) 據(jù) 庫 是 Access， 當(dāng) 我 把 數(shù) 據(jù) 庫 加 上 一 個 密 碼 后 ， 在 vb里 用 Crystal Report 控 件 調(diào) 用 這 個 報 表 ,不 能 打 開 報 表 ， 應(yīng) 該 是 在 控 件 上 加 入 這 個 數(shù) 據(jù) 庫 的 密 碼 才 行 ， 哪 位 高 手 指 點 一 下 小 弟 怎 么 寫 這 個 Connect 
<END>
如 果 你 的 數(shù) 據(jù) 庫 在 設(shè) 計 報 表 時 就 有 密 碼 ， CrystalReports會 提 示 你 密 碼 并 記 住 該 密 碼 。 你 也 可 以 設(shè) 置 Crystal Reports控 件 的 Password屬 性 。 
<END>    
先 打 開 數(shù) 據(jù) 庫 
    dim dbs as database 
    set dbs=dbengine.opendatabase("*.mdb",,";pwd=159753") 
    然 后 直 接 調(diào) 用 報 表 ! 
    PRTctl.ReportFileName = "*.rpt" 
    PRTctl.DataFiles(0) = "*.mdb" 
    PRTctl.UserName = ";pwd=159753" 
    PRTctl.WindowState = crptMaximized 
    PRTctl.ReportSource = crptReport 
    PRTctl.PrintReport 
<END>