Выполнение Sql запроса с временной таблицей - Visual Basic .NET

Формулировка задачи:

Доброго времени суток. Сваял кое как sql запрос

                    Листинг программы
                
 
                        
                          
                    
CREATE TABLE #t1 (dat smalldatetime, i FLOAT)
INSERT INTO #t1
SELECT TimestampStr, ch8_val
FROM dbo.Adroit_K10
WHERE TimestampStr>'2017-03-2 17:00' AND TimestampStr<'2017-03-3 5:00'
 
SELECT dat = CONVERT(CHAR(14),dat,120)+'00', i = CONVERT(NUMERIC(10,2),AVG(i)) FROM #t1 GROUP BY  CONVERT(CHAR(14),dat,120)+'00'
ORDER BY dat
DROP TABLE #t1

Хочу его делать в vb.net Помогите пожалуйста с этим Пытаюсь так.

                    Листинг программы
                
 
                        
                          
                    
    Dim cn As ADODB.Connection
    Dim rec As ADODB.Recordset
    Private Sub Connect_SQL()
        cn = New ADODB.Connection
        cn.ConnectionTimeout = 5000
        cn.CommandTimeout = 5000
        cn.Open("DRIVER={SQL Server};SERVER=SRV;DATABASE=Adroit_DB;UID=sa;PWD=1")
    End Sub
 
Sub getvals
Call Connect_SQL()
rec = cn.Execute("create table #t1 (dat smalldatetime, i float) insert into #t1 select TimestampStr, ch8_val from dbo.Adroit_K10 where TimestampStr>'2017-03-2 17:00' and TimestampStr<'2017-03-3 5:00' select dat = convert(char(14),dat,120)+'00', i = Convert(numeric(10,2),AVG(i)) from #t1 group by  convert(char(14),dat,120)+'00' order by dat")
End Sub

Что я делаю не так?

Решение задачи: «Выполнение Sql запроса с временной таблицей»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function ExecuteQuery() As DataTable
    Using dbConn As New SqlConnection("SERVER=SRV;DATABASE=Adroit_DB;UID=sa;PWD=1")
        Dim dbCmd As New SqlCommand
        dbCmd.CommandText = "CREATE TABLE #t1 (dat smalldatetime, i FLOAT)" & vbCrLf & _
            "INSERT INTO #t1" & vbCrLf & _
            "SELECT TimestampStr, ch8_val" & vbCrLf & _
            "FROM dbo.Adroit_K10" & vbCrLf & _
            "WHERE TimestampStr>'2017-03-2 17:00' AND TimestampStr<'2017-03-3 5:00'" & vbCrLf & _
            "" & vbCrLf & _
            "SELECT dat = CONVERT(CHAR(14),dat,120)+'00', i = CONVERT(NUMERIC(10,2),AVG(i)) FROM #t1 GROUP BY  CONVERT(CHAR(14),dat,120)+'00'" & vbCrLf & _
            "ORDER BY dat" & vbCrLf & _
            "DROP TABLE #t1"
        dbCmd.Connection = dbConn
        Dim dbAdapter As New SqlDataAdapter(dbCmd)
        Dim dataSet As New DataSet
        dbConn.Open()
        dbAdapter.Fill(dataSet)
        Return dataSet.Tables(0)
    End Using
End Function