Option Explicit 096 Dim 資料庫 As Object 097 Private Sub Form_Load() 098 Set 資料庫 = New ADODB.Connection 099 Call 資料庫.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") "連線資料庫 100 If ((資料庫.State) = (adStateOpen)) Then 101 MsgBox ("連線成功！") 102 Else 103 MsgBox ("連線失敗！") 104 End If 105 End Sub 106 Private Sub Form_Unload(Cancel As Integer) 107 資料庫.Close "關閉資料庫 108 Set 資料庫 = Nothing "資料庫變數清除 109 End Sub