Visual Basic - Crear BD por código

Hola. Necesito saber o un ejemplo sobre cómo crea una BD, tablas y campos por código en VB (sin usar MS Acces)
Salu2

Si estás utilizando ADO lo puedes hacer con ADOX:

Dim objCatalog As Catalog, objTable As Table

Set objCatalog = New Catalog
Set objCatalog.Connection = TuObjetoConnection

Set objTable = New Table
objTable.Name = "MiTabla"
objTable.Columns.Append "Columna1", adInteger
objTable.Columns.Append "Columna2", adInteger
objTable.Columns.Append "Columna3", adVarChar, 50
objCatalog.Tables.Append objTable