Visual Basic - crear base de datos en sql server

necesito crear desde vb6 una base de datos nueva. Por que necesito para cerrar un año y empezar un nuevo cierre no se si me explico. Pero en definitiva necesito crear desde vb6 una nueva base de datos, con las mismas tablas.
Yo lo se pero a Access, pero a sql server no me sale
Gracias desde ya.

Haces un backup y la restauras con el nuevo nombre:

objConnection.Execute "BACKUP DATABASE MiBase TO DISK='C:\MiBase.bak'"

objConnection.Execute "RESTORE DATABASE MiNuevaBase FROM DISK='C:\MiBase.bak' WITH MOVE 'MiBase_Datos' TO 'C:\MiNuevaBase_Datos.MDF, MOVE 'MiBase_Registro' TO 'C:\MiNuevaBase_Registro.LDF'"

Gracias cecilia pero tengo un problema con restaurar la base de datos.
A que te referis con 'MiBase_Datos' es el la direccion donde esta la bd o el nombre name.bak o nombre...
esa es creo que la duda que tengo por que no me sale la restauracion..
gracias de nuevo

Son los nombres lógicos de los archivos MDF y LDF de tu base original, los definís cuando creas la base originariamente sea desde el Administrador Corporativo o desde el Analizador de Consultas, lo podes ver con las propiedades de la base de datos o con:

RESTORE FILELISTONLY FROM DISK='C:\MiBase.bak'

Esos nombres lógicos son los que se restauran con los nuevos nombres físicos.