excel - この vba コードの何が問題になっていますか?

Question

このコードは、数時間前は問題なく動作していましたが、いくつか変更を加えたところ、動作しなくなりました。すべての変更をバックトラックして、開始した場所にたどり着きました。以前は問題なく機能していた、インターネットから取得したコードの一部です。これがコードです

   Dim oCn As ADODB.Connection
   Dim oRS As ADODB.Recordset
   Dim ConnString As String
   Dim SQL As String
   Dim qt As QueryTable
   ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Book1.xlsx';Extended Properties=Excel 12.0;"
   Set oCn = New ADODB.Connection
   oCn.ConnectionString = ConnString
   oCn.Open
   SQL = "Select * from [Sheet1$]"
   Set oRS = New ADODB.Recordset
   oRS.Source = SQL
   oRS.ActiveConnection = oCn
   oRS.Open
   Set qt = Worksheets(1).QueryTables.Add(Connection:=oRS, _
   Destination:=Range("A2"))
   oRS.Close
   Set oRS = Nothing
   Set oCn = Nothing

実行してもエラーは発生しません。出力は宛先に表示されません。誰が私が間違っているのか教えてもらえますか?