如何在VBA中用ADO连接远程的access数据库

Question

如何在VBA中用ADO连接远程的access数据库

Answer 1

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