Asp+access SQL INSERT INTO Select Table Replication

This is to save one single piece of data to another table, using SQL INSERT INTO select another new table with the same structure

Sub Append ()
Call OPENDB ()
Dim zsql,zdysql
Zsql= "INSERT into Zdgz select Title,s_name,user_from,image,content,send_date,isture from Zdy"
Conn.execute (Zsql)
If Err=0 Then
Response.Write ("<br>Response.Write ("<font class=style1 >data successful merger</font>Conn.execute ("Delete * from Zdy")
Else
Response.Write ("<br>Response.Write ("<font class=style1>if you are repeatedly running a home, data merge successfully." If you are running the "the" the "the" the "the", the data failed merger.</font>End If
End Sub

Data Connection Code

Sub Opendb ()
Set Rs=server. CreateObject ("Adodb.recordset")
Set Conn=server. CreateObject ("Adodb.connection")
Conn.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0; Data source= "&server.mappath (" Datasource/hhinfo.mdb ")
Conn.Open
End Sub