Execl ADO SQL 联合查询

原题目：
如何从两张excel表中取数，生成第三张表?
表一：
     A姓名    B身份证号 C金额 1 张三 642120197409020031 2100 2 李四 552120197509020031 3100 3 王五 693120197408020031 2000 4 陈三 642202197409020031 1000 表二：
  A姓名 B身份证号 C账号 1 张三 642120197409020031 447940 2 李七 552120197509020031 447941 3 赵八 693120197408020031 447942 4 陈三 642202197409020031 447943 比较表一、表二，如果姓名与身份证号二项完全相同，则生成表三
  A姓名 B身份证号 C账号 D金额 1 张三 642120197409020031 447940 2100 2 陈三 642202197409020031 447943 1000

解决方法：

代码:

Sub OkExcel()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset


更多细节.........