Public Sub QueryExp() Dim dbs As Object Dim obj As AccessObject Dim strName As String Set dbs = Application.CurrentData For Each obj In dbs.AllQueries strName = obj.Name DoCmd.TransferDatabase _ TransferType:=acExport, _ DatabaseType:="Microsoft Access", _ DatabaseName:=CurrentProject.Path & "\MyTools\MyTools.MDB", _ ObjectType:=acQuery, _ Source:=strName, _ Destination:=strName, _ StructureOnly:=False Next obj End SubUsing the same tool, I know how to import an individual item. Is it possible to scan through the collection of a second Access MDB from within the first MDB?