096 Dim數據庫作為對象
097私有子窗體_Load()
098 Set database = new adodb . connection
099調用database . open(" provider = Microsoft . jet . oledb . 4.0；數據源= Data.mdb")'連接到數據庫
100 If((數據庫。state) = (adstatepen))那麽
101 MsgBox("連接成功！")
102其他
103 MsgBox("連接失敗！")
104結束If
105末端接頭
106私有子表單_Unload(整數取消)
107數據庫。關閉關閉數據庫。
108設置數據庫=無'數據庫變量清除
109末端接頭