Dim ADOCnFrom As New ADODB.Connection
    Dim ADOCnTo As New ADODB.Connection
    Dim strConn As String
    strConn = "Driver={SQL Server};Database=cdr;Uid=sa;Pwd=" & frmCDR.txtOldDataPwd & ";Server=" & frmCDR.txtFromip.Text & ";"
    On Error GoTo ErrorMng
    ADOCnFrom.Open strConn
    strConn = "Driver={SQL Server};Database=cdr;Uid=sa;Pwd=" & frmCDR.txtNewDataPwd & ";Server=" & frmCDR.txtToip.Text & ";"
    On Error GoTo ErrorMng
    ADOCnTo.Open strConn
   ' ADOCnTo.Execute "DELETE FROM AllProfitTab"
    ADOCnTo.Execute "INSERT INTO AllProfitTab select * from ADOCnFrom.ss"
要从ADOCnFrom这个数据库中把整张表的数据都拷贝到ADOCnTo的数据库对应的表中ADOCnTo.Execute "INSERT INTO AllProfitTab select * from ADOCnFrom.ss"'这条语句应该怎么写呢