先引用ADO dim cn as new adodb.connection Str_mdb="Driver={Microsoft Access Driver (*.mdb)};Uid=;Pwd=;Dbq= " & App.Path & "\Report.mdb"cn.open Str_mdb
dim conn as new adodb.connection with conn If .State = adStateOpen Then .Close .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=123" .Open End With
dim cn as new adodb.connection
Str_mdb="Driver={Microsoft Access Driver (*.mdb)};Uid=;Pwd=;Dbq= " & App.Path & "\Report.mdb"cn.open Str_mdb
with conn
If .State = adStateOpen Then .Close
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=123"
.Open
End With