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

Question

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

Answer 1

Option Explicit096 Dim 数据库 As Object097 Private Sub Form_Load()098 Set 数据库 = New ADODB.Connection099 Call 数据库.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '连接数据库100 If ((数据库.State) = (adStateOpen)) Then101 MsgBox ("连接成功！")102 Else103 MsgBox ("连接失败！")104 End If105 End Sub106 Private Sub Form_Unload(Cancel As Integer)107 数据库.Close '关闭数据库108 Set 数据库 = Nothing '数据库变量清除109 End Sub