Dim cmd1 As New SQLCommand
cmd1.C
Dim dt1 As DataTable
Dim Cols1() As String = {"f_zh","f_hm","f_zjhm"}
Dim Cols2() As String = {"账号","户名","身份证号"}
cmd1.CommandText = "SELECT * From {tb_ckzhxx} where f_zjhm in (select 身份证号 from {信息比对})"
dt1 = cmd1.ExecuteReader()
For Each dr1 As DataRow In dt1.DataRows
Dim dr3 As DataRow = DataTables("股金客户信息").AddNew()
For i1 As Integer = 0 To Cols1.Length -1
dr3(Cols2(i1)) = dr1(Cols1(i1))
Next
Next