xlSheet.QueryTables.Add(
Connection:=Array(
 "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" + TempBase + ";Mode=Read;", _
 "Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:", _
 "Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:", _
 "New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compa", 
 "ct=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), Destination:=xlSheet.Range("A1"))