SQL запрос в Exel

[EX111]

Здравствуйте, имеется готовый рабочий запрос в SQL, как его можно использовать в exel, либо как этот запрос будет выглядеть в VBA?
Текст запроса:
SELECT NUMTEL AS "Номер", DateValue(DATECALL) AS "Дата вызова", Round(Sum(TIMECALL/60),2) AS "Время (в мин)", Count(*) As "Кол-во"
FROM Table1
GROUP BY NUMTEL, DateValue(DATECALL);

[IgorGO]

приблизительно так:

Dim con As Connection
Dim rst As Recordset

Set con = New Connection
con.Open "provider=SQLOLEDB;Data Source=name of sqlserver instance;Initial Catalog=database name;Integrated Security=SSPI;"

Set rst = con.Execute("delete from Inv_Import INSERT INTO Inv_Import SELECT * FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','Excel 8.0;Database=C:\Accounts\" & Range("k14").Value & "\Imp_Files.xls;HDR=YES','SELECT * FROM [Inv_Import$]')")
     
con.Close