写了一个单机程序，几个人在不同的电脑上用后，怎么把数据库记录合并在一起。数据库里有多个表，表结构完全是一样的，谢谢！！！（请大家告诉我最简单的解决方法，不要说读一条记录写一条记录啊）。

你想几台电脑的数据合并，又写的是单机程序，还真麻烦啊

下面的是一个简单的示例：
源数据库：d:\db2.mdb
目标数据库：d:\db1.mdb
注意：本示例数据库admin表的结构相同,有一个主关键字段id，所以下面的代码用枚举id除外的字段名的方法(红色部分)

当然，本例只是全部导入数据，你也可以用where语句附加条件，进行有选择的导入


Private Sub Command1_Click()
  Dim conn As New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db2.mdb;Persist Security Info=False"
    conn.Open
    conn.Execute "insert into admin in 'd:\db1.mdb'  select name,pass,adress from admin"
    conn.Close
End Sub

赞成楼上,跟你建议一致.

重复的怎么办？
合并后也只是将现有分散的数据集中保存而已。