Option Compare Database
Option Explicit
'Buho Diciembre 2003
'Crea MDB y copia tabla de esta base de datos a la recien creada
'Hay que activar la referencia Microsoft Ado Ext 2.7 for DDl and Security
Function CrearBaseDatos(NombreBase As String, TablaCopiar As String)
 Dim Catalogo     As New ADOX.Catalog
 Dim Conexion    As String
 'en esta linea preparamos la cadena de conexión y depositamos la MDB
 'recien creada en la carpeta actual
 Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & CurrentProject.Path & "\" & NombreBase
 Catalogo.Create Conexion
 Set Catalogo = Nothing
 'ahora copiamos la tabla. Para ello utilizamos el metodo CopyObject del objeto Docmd (Para eso estamos en Acecss)
 DoCmd.CopyObject CurrentProject.Path & "\" & NombreBase, "NombreTablaDestino", acTable, TablaCopiar

End Function


'La siguiente funcion es simplemente para probar
Function prueba()
 CrearBaseDatos "ESPEJO.MDB", "Tutabla"
End Function