如何将SQL Server 数据库中的一个表Clone到另一个数据库中（急！！）？

我使用一下程序想将zxqxundss表中的全部记录复制到具有相同结构的表ghf中，但并不成果ghf表仍然是空的，而且不提示任何错误，请问如何做，有没有使用一次性复制的方法？
Cnn.ConnectionString = "Data Source=GZHWRDSS;User ID=sa;Password=lgy;"
Cnn.Open
Cnn1.ConnectionString = "Data Source=GZGWR;User ID=sa;Password=lgy;"
Cnn1.Open
Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs2.CursorLocation = adUseClient
rs1.Open "select * from ghf", Cnn, adOpenStatic, adLockOptimistic
rs2.Open "select * from xzqxundss", Cnn1, adOpenStatic, adLockOptimistic
Set rs1 = rs2.Clone
rs1.UpdateBatch