怎么将一个数据库查询到的记录添加到另一个数据库中

怎样将一个数据库查询到的记录添加到另一个数据库中
Private Sub CommandButton2_Click()
Dim Conn1 As New ADODB.Connection
Dim Conn2 As New ADODB.Connection
Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets(1).[b1]
Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets(1).[b2]
'Dim Rs1 As New ADODB.Recordset
'Rs1.Open "Select * From [Content]", Conn1, 1, 3
Conn2.Execute "insert into [Yao_Article] Title,Content select 标题,内容 from Conn1.[Content]"   '这句明显错误，如何修改？
'Rs1.Close
Conn1.Close
Conn2.Close
'Set Rs1 = Nothing
Set Conn1 = Nothing
Set Conn2 = Nothing
End Sub

我想将Conn1数据库中 Content表的 两个字段的内容，
添加到Conn2数据库中 Yao_Article表的 两个字段里。
如何操作？

------解决思路----------------------

Dim Conn1 As New ADODB.Connection

    Dim Conn2 As New ADODB.Connection

    Dim Rs1 As New ADODB.Recordset

    Dim sql As String

    

    Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets(1).[b1]

    Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets(1).[b2]

    

    Rs1.Open "Select 标题,内容 From [Content]", Conn1, 1, 3

    Do While Not rs.EOF()

        sql = "insert into [Yao_Article] Title,Content values('" + Rs1.Fields("标题").Value

        sql = sql + "','" + Rs1.Fields("内容").Value + "')"

        Conn2.Execute sql

        Rs1.MoveNext

    Loop

  

    Rs1.Close

    Conn1.Close

    Conn2.Close

    Set Rs1 = Nothing

    Set Conn1 = Nothing

    Set Conn2 = Nothing