初学VB，请问如何导入数据库

Question

小弟初学VB还不到一周，想问一个最简单的问题，就是如何把一个数据库内容导入到另一个数据库中。具体情况是：一个数据库中一部分内容是我想要的，比如姓名和年龄这两方面的资料，怎样把这两部分提出来并导入到我的数据库中。本不好意思提出这么简单的问题，但我没有编程基础，看了一些教程，还是不知如何下手，哪位能给一下代码，我研究一下。

Answer 1

Dim R1 As New ADODB.Recordset
Dim R2 As New ADODB.Recordset
'假设test1表是源表，test2是目的表。数据库的连接代码你可以自己写一下，我省掉了 
   R1.Open "select * from test1"
   R2.Open "select * from test2"
   Do While R1.EOF
      R2.AddNew
      R2.Fields("姓名") = R1.Fields("姓名")
      R2.Fields("年龄") = R1.Fields("年龄")
      R1.MoveNext
      R2.Update
   Loop