Necesito un ejemplo de como crear una base de datos en Access mediante código RESPUESTA ========= 'Esta función crea la base de datos en formato Access2000 Function CrearBaseMDB(NombreRutaBaseDatos As String) As Boolean On Error Resume Next Dim Datos as object CrearBaseMDB = True Set Datos = CreateObject("ADOX.Catalog") Datos.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NombreRutaBaseDatos & ";" If Err <> 0 Then Err = 0 CrearBaseMDB = False End If End Function 'Y este es un ejemplo de crear una Tabla, tomando en cuenta que la conección ya esta establecida y esta guardada en la variable DATOS Datos.execute "CREATE TABLE NombreDeLaTabla (Codigo Integer, Nombre CHAR(50),Precio Double, SwImpreso BIT, Correlativo smallint IDENTITY(1,1) NOT NULL);" 'Esto crea un Indice, tomando en cuenta que la conección ya esta establecida y esta guardada en la variable DATOS Function CrearIndice(ByVal Tabla As String, ByVal NombreCampo As String, Optional ByVal NombreIndice As String, Optional ByVal Unico As Boolean) As Boolean On Error Resume Next CrearIndice = True If NombreIndice = "" Then NombreIndice = NombreCampo Datos.execute "CREATE " & IIf(Unico, "Unique", "") & " INDEX " & NombreIndice & " ON " & Tabla & "([" & NombreCampo & "])" Exit Function ErrorCrearIndice: Err = 0 CrearIndice = False Exit Function End Function Claudiio Valdés