crear base de datos con tabla

[Avellaneda]

Hola william, mira si te vale este ejemplo.
(Tienes que marcar la referencia "Microsoft ADO Ext. 2.8 for DDL and Security")

Código:

Private Sub Command1_Click()
    Dim catalogo As New ADOX.Catalog
    Dim Latabla As New ADOX.Table
    Dim LaBD As String
    
    LaBD = App.Path & "\Prueba.mdb"
    ' si ya existe la base de datos en el directorio no hacemos nada 
    If Len(Dir(LaBD)) Then Exit Sub
    ' creamos la base de datos
    catalogo.Create "Provider = Microsoft.Jet.OleDB.4.0; Data Source = " & LaBD
    catalogo.ActiveConnection = "Provider = Microsoft.Jet.OleDB.4.0; Data Source = " & LaBD
    ' creamos la tabla
    With Latabla
        .Name = "Tabla1"
        .Columns.Append "Id", adInteger
        .Columns.Append "Nombre", adVarWChar, 20
        .Columns.Append "Fecha", adDate
    End With
    catalogo.Tables.Append Latabla
    MsgBox "Se creó la base de datos " & LaBD & " con la tabla 'Tabla1'"
End Sub

Un saludo