daplca

Aquí te pongo un ejemplo: Private Sub CrearBase(sBase As String) 'Crear la base de datos indicada ' Dim Db As Database Dim Fd As Field Dim Tb As New TableDef 'Definir una Tabla Dim Idx As New Index 'Para crear un �ndice Dim i As Integer 'Crear base...