access的vba編程中，怎樣連接accsee數據庫

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