'连接到数据库(用户). \Access\Adm.mdb 是相对路径
With AdodcMain
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Access\Adm.mdb;Mode=ReadWrite;Persist Security Info=False"
.CommandType = adCmdTable
.RecordSource = "用户" '连接到表"用户" 注意:表名不可以用"USER"
.Refresh '更新
End With