Crear BD en SQL Server con VB6

[sta_sl]

Hola!!!
Necesito ayuda urgente.

Siempre he trabajado con VB6 y Access y ahora empiezo un proyecto con VB6 y SQL Server y estoy un poco pez.

Necesito crear una BD en SQL Server con sentencias VB6. Me gustaría poder crear la BD, crear sus tablas...por ahora sólo he conseguido conectarme a una BD ya creada, con eso no tengo problema. El problema es que yo quiero CREARLA.

También me gustaría saber si puedo compactar/Reparar un BD SQL Server mediante una sentencia en VB6.

Si pudierais darme alguna Web de referencia que use VB6 con SQL Server. Cualquier codigo fuente...lo que sea.

Muchas gracias de antemano

[gefuva]

Con esta sentencia puedes crear una BD desde VB:

miConexion.Execute "IF not EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'" & BaseDatos & "') CREATE DATABASE [" & BaseDatos & "] CREATE DATABASE [" & BaseDatos & "]"

Espero te sirva.

[sta_sl]

Muchísimas gracias, lo he probado y va perfecto.

Gracias