Option Explicit
Sub MAIN()
     Dim strSourceFile As String, strDestFile As String
     Dim dbsSRC As Database, dbsDest As Database
     'ESTA PRIMERA mdb ES DONDE TENGO LAS CONSULTAS
     strSourceFile = "C:\TWPAC\BASE1.MDB"
     ' ESTA SEGUNDA mdB ES DONDE QUIERO COPIARLAS
     strDestFile = "C:\TWPAC\BASE2.MDB"
     On Error GoTo errExists
    
     Set dbsSRC = DBEngine.Workspaces(0).OpenDatabase(strSourceFile)
     Set dbsDest = DBEngine.Workspaces(0).OpenDatabase(strDestFile)
     On Error GoTo 0

      CopyQueries dbsSRC, dbsDest 'Copio  consultas
     dbsDest.Close
     dbsSRC.Close
     Exit Sub
errExists:
     If Err = 3204 Then
          MsgBox "No se ha podido concluir el proceso."
     Else
          MsgBox "Error: " & Error$, vbCritical + vbOKOnly, "AVISO DE ERROR"
     End If
     Exit Sub
End Sub

Sub CopyQueries(dbSrc As Database, dbDest As Database)
    'Aqui implementa codigo de errores...falta por hacer

     Dim qrySrc As QueryDef, qryDest As QueryDef
     For Each qrySrc In dbSrc.QueryDefs
          Set qryDest = dbDest.CreateQueryDef(qrySrc.Name, qrySrc.Sql)
          CopyProperties qrySrc, qryDest
     Next

End Sub
Sub CopyProperties(objSrc As Object, objDest As Object)
     

     Dim prpProp As Property, temp As Variant
     On Error GoTo errCopyProperties
     For Each prpProp In objSrc.Properties
          objDest.Properties(prpProp.Name) = prpProp.Value
     Next
     On Error GoTo 0
     Exit Sub
errCopyProperties:
     Resume Next

End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)