Crear BD acces desde VB6 con x numero de tablas

[kortiz]

Aqui tenes 2 formas de crear bases de datos de Access:
La Primera es usando referencia ADOX
La segunda usa una instruccion SQL:

1
-------------------------------
Dim cat As New ADOX.Catalog
Dim tbl(32) As New ADOX.Table

Private Sub Command2_Click()
nom = ""
nom = InputBox("Escribe el nombre de la base de datos", "Crear Base")

If nom <> "" Then

cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & nom & ".mdb;"

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & nom & ".mdb;"

For i = 1 To 32
With tbl(i)
.Name = i .Columns.Append "ID", adInteger
.Columns.Append "Nombre", adVarWChar, 255
.Columns.Append "Check", adVarWChar, 1

.Columns("Nombre").Attributes = adColNullable
.Columns("Check").Attributes = adColNullable

End With

cat.Tables.Append tbl(i)
Next
nom = App.Path & "\" & nom & ".mdb"
MsgBox nom, , "Creada Satisfactoriamente en:"
End If
End Sub
---------------------------------------------

2
---------------------------------------------
Private Sub CrearTabla_Click()
Dim sql As String
Dim NombreTabla As String
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection ' abrimos la conexión a la base de datos

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & _
"Data Source=" & App.Path & "\NombreBD.mdb"
NombreTabla = Text1 ' o cualquier otra variable que quieras poner
' El campo id lo creamos de tipo autonumérico

sql = "CREATE TABLE " & NombreTabla & "(" & _
"id COUNTER CONSTRAINT miIndice UNIQUE, " & _
"Cliente NUMBER NOT NULL, " & _
"Fecha DATE NOT NULL, " & _
"Nombre VARCHAR(6) ," & _
"Factura NUMBER ," & _
"SiNo YESNO )"

cn.Execute sql, , adCmdText
MsgBox "Tabla creada"
End Sub
----------------------------------------
Para crear varias podrias hacer un bucle