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


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