VB ADO 处理数据库并发请求

Dim db As New ADODB.Connection, RS As New ADODB.Recordset
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\数据库名.mdb"
db.Open
strSQL = "select * from 数据表名 order by id desc"
RS.Open strSQL, db, 3, 3(读取时后面3， 3可以修改为1， 1，但是添加、修改、删除必须是3，3)
1、RS.AddNew 是添加新记录语句
2、 ...... 添加或更新内容，例如RS("BT")=BT，其中括号中的BT是字段名，等号后面的BT是待更新的变量值。
3、RS.UpDate 是更新记录，更新的含义包括添加和修改，因此在添加记录时必须同时有RS.AddNew语句和RS.UpDate语句，而修改记录仅仅需要RS.UpDate语句。
4、RS.Delete 是删除记录的语句
5、最后别忘了关闭对象：
RS.Close
db.Close OK

放心吧，ADO已经帮你做好了，你只管添加删除就是了，
不过要加 on error语句，防止同时访问同一条记录时出错崩溃

给你一些参考希望对你有用。

程式包括“新增，删除，编辑，储存，取消和查询代码。
例如在Form中设置3个Textbox和5个CommandButton
分别为

Textbox=Date(txtdate),Items(txtitems),Price(txtprice).

CommandButton = 新增(cmdadd),储存(cmdsave),删除(cmddelete),
取消新增(cmdcancel),编辑(cmdedit).
<