Visual Basic - Copiar una base de datos a travez de codigo de vb6

Deceo saber como poder copiar una base de datos mysql a traves de codigo vb6 y renombrarla para doder creao un historico de los datos si me pueden ayudar se los agradeceria

Debes hacerlo con sentencias SQL.

Para crear la base de datos:
CREATE DATABASE NOMBRE_BASEDATOS;

Para recuperar todas las tablas de la base de datos:
SHOW TABLES;

Para cada tabla (Debes crear un bucle para recorrer todas las tablas):
CREATE TABLE NOMBRE_TABLA(
SELECT * FROM BASE_DATOS_ORIGINAL.NOMBRE_TABLA
);

Una vez hacho esto tendrás la base de datos de soporte.
Eso si, esto son unas lineas de orientación al tema espero que te sirvan.