Visual Basic - crear base de datos y tablas manualmente

hola: yo siempre cree la base de datos con sus tablas con el access, necesito ahora crearlo manualmente me esta dando dolor de cabeza, por favor alguien tiene una rutina sencilla, ahh me olvidaba debo agregar alguna referencia. mil gracias por leer esto
p/d : lo necesitaba para ayer reinaldo

Cuando dices una rutina sencilla, ¿a que te refieres?
Una base de datos se puede crear desde cero mediante ADO o SQL (DDL), pero ambos temas son demasiados extensos para explicarlos en un par de lineas de un foro.

Si estás muy interesado te puedo enviar ALGO para que te inicies en el tema.

Un saludo.

Hola.
Como puedo crear bases de datos en VB5 y utilizarlos para formularios

Para crear una database con dos tablas en DAO.

Option Explicit
Dim tabla As TableDef
Dim columna As Field
Dim basededatos as DataBase
------------------------------------

' crea la base de datos...
Set basededatos = DBEngine.Workspaces(0).CreateDatabase(App.Path & "\HOJA.MDB", dbLangSpanish)

'--------------------------------
'crea la tabla CHOFER
Set tabla = basededatos.CreateTableDef("CHOFER")

'poner campos...
Set columna = tabla.CreateField("CHOFER", dbText, 30)
tabla.Fields.Append columna

'añade la tabla a la base de datos...
basededatos.TableDefs.Append tabla
'-----------------------------------

'--------------------------------
'crea la tabla CAMIONETA
Set tabla = basededatos.CreateTableDef("CAMIONETA")

'poner campos...
Set columna = tabla.CreateField("CAMIONETA", dbText, 30)
tabla.Fields.Append columna

'añade la tabla a la base de datos...
basededatos.TableDefs.Append tabla
'-----------------------------------

basededatos.Close

<fin de texto>

Para crear una database con dos tablas en DAO.

Option Explicit
Dim tabla As TableDef
Dim columna As Field
Dim basededatos as DataBase
------------------------------------

' crea la base de datos...
Set basededatos = DBEngine.Workspaces(0).CreateDatabase(App.Path & "\HOJA.MDB", dbLangSpanish)

'--------------------------------
'crea la tabla CHOFER
Set tabla = basededatos.CreateTableDef("CHOFER")

'poner campos...
Set columna = tabla.CreateField("CHOFER", dbText, 30)
tabla.Fields.Append columna

'añade la tabla a la base de datos...
basededatos.TableDefs.Append tabla
'-----------------------------------

'--------------------------------
'crea la tabla CAMIONETA
Set tabla = basededatos.CreateTableDef("CAMIONETA")

'poner campos...
Set columna = tabla.CreateField("CAMIONETA", dbText, 30)
tabla.Fields.Append columna

'añade la tabla a la base de datos...
basededatos.TableDefs.Append tabla
'-----------------------------------

basededatos.Close

<fin de texto>