I am importing an Access database table with the code below. During the importing process two dialog boxes (Data Link Properties & DB Initialization Information) appear. I click OK (or just hit the enter key) for both. How can I automate the "OK" so that no clicking is required? Thanks Sandy.

Range("H2").Select
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
                                                            "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=S:\Time_Sheets-Database\TimeSheets.accde;Mode=Share Deny" _
                                                            , _
                                     " Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:E" _
                                     , _
                                     "ngine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLED" _
                                     , _
                                     "B:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale o" _
                                     , _
                                     "n Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
                                     ), Destination:=Range("$H$2")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("tblProject")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "S:\Time_Sheets-Database\TimeSheets.accde"
        .ListObject.DisplayName = "Table_TimeSheets.accde_15"
        .Refresh Backg