Private Sub Command1_Click()
    Dim cTablaNueva As String
    Dim cTablaVieja As String
    Dim ret As Boolean

    cTablaNueva = Text1.Text  '  Nombre que hayas definido
    cTablaVieja = Nombre_Original

    Call Clonar(cTablaVieja, cTablaNueva)

    ' Ahora vaciamos la Tabla Original
    ret = ADOExecute("DELETE From " & cTablaVieja & ";")
    If Not ret Then
        MsgBox("Error al borrar la tabla...")
    End If
End Sub

Private Function Clonar(ByVal Source_Table_Name As String, _
                       ByVal Dest_Table_Name As String) As Boolean
    Dim ret As Boolean

    ret = ADOExecute("Select [" & Source_Table_Name & _
    "].* Into [" & Dest_Table_Name & "] From [" & Source_Table_Name & "];")
    If Not ret then
        MsgBox("Error al crear la tabla...")
    End If
End Function

Private Function ADOExecute(ByVal SQL As String) As Boolean
    Call TuConexion.Execute(SQL, , adCmdText + adExecuteNoRecords + adAsyncExecute)
    DoEvents
End Function