dim ac_tmp as new adodb.connection
dim ar_tmp as new adodb.recordset
with ac_tmp
If .State = adStateOpen Then .Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 服务器ip & "\"& 共享名 &"\test.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
end with