На последней строчке нижеизложенного кода выдаётся ошибка: "параметр задан неверно."
(con - ранее созданное подключение к базе)

'---

Dim oSheet As Excel.Worksheet
Dim oExcel As Excel.Application
oExcel = New Excel.Application

Dim wb = oExcel.Workbooks.Add()

oExcel.Visible = True

oSheet.QueryTables.Add(con, oSheet.Range("A1"), "select * from dbo.table1")

'---

Подскажите, пожалуйста, почему это происходит? Как добавить QueryTable?
Заранее благодарен за полезную информацию.