ACCESS+ADO+SQL的问题

Private Sub 确定_Click()
    Dim oleconn As New ADODB.Connection
    Dim CONN As String
    CONN = "Provider=SQLOLEDB;Persist Security Info=False;Data Source=HRSERVER;Initial Catalog=Txcard;User ID=sa"
    oleconn.Open CONN
   
    Dim STRSQL As String
    Dim RST As New ADODB.Recordset
    STRSQL = "SELECT * FROM Kq_Source WHERE (EmpID = 4142) AND (FDateTime = CONVERT(DATETIME, '2013-10-08 08:33:00', 102)) "
    RST.Open STRSQL, oleconn, adOpenKeyset, adLockOptimistic
   
    '下面是我琢磨的将记录集插入到本地表"表1"的代码，不过不行，请大家帮我看下应该怎样写

    Dim stemp As String
    stemp2 = "INSERT INTO 表1 ( ID,FDatetime ) RST.Fields('id').Value,RST.Fields('FDatetime').Value;"
    DoCmd.RunSQL stemp2
    

    ’下面是将记录集的数据显示在子窗体“zct”上的代码，也是不对，请教大家
    Set Me.zct.Form.Recordset = RST
   
    '下面是将记录集ID字段的值显示在text3的文本框内，这个可以

    Me.Text3 = RST.Fields("id").Value
   
    RST.Close
    Set RST = Nothing
   
End Sub