Function GetData_TRIO(ByVal Par As ParIndTRIO, ByVal d As Date, ByVal Seccode As String) As Ind_TRIO
        Dim TR As Ind_TRIO
        Dim Vol As Double
        Dim Kol As Double
        Dim lcn As New OleDb.OleDbConnection(ConnStringInfo)
        Dim qstr As String = "select ?=sum(колво), ?=sum(объем)  from сделки where код_бумаги = ? "
        Dim str As String = " and DATEDIFF(""s"", время, ?) <= "
        Dim str_buy As String = " and операция = 'Покупка' and DATEDIFF(""s"", время, ?) <= "
        Dim str_sell As String = " and операция = 'Продажа' and DATEDIFF(""s"", время, ?) <= "

        Dim cmd As New OleDb.OleDbCommand(qstr, lcn)

        Dim pD As New OleDb.OleDbParameter

        Dim pSec As New OleDb.OleDbParameter
        Dim pT As New OleDb.OleDbParameter


        Dim pVol As New OleDb.OleDbParameter
        Dim pKol As New OleDb.OleDbParameter

        Dim dr As OleDb.OleDbDataReader




        REM===========================================================================
        REM Проверка открытости соединения
        REM===========================================================================
        Try

            If lcn.State = ConnectionState.Closed Then
                lcn.Open()
            End If
        Catch e1 As Exception ' Ошибка открытия соединения
            MsgBox(e1.Message)
        End Try

        REM===============================================
        REM Формируем параметры запроса
        REM===============================================
        pKol.ParameterName = "@KOL"
        pKol.DbType = DbType.Int32
        pKol.Direction = ParameterDirection.Output
        cmd.Parameters.Add(pKol)

        pVol.ParameterName = "@VOL"
        pVol.DbType = DbType.Double
        pVol.Direction = ParameterDirection.Output
        cmd.Parameters.Add(pVol)

        pSec.ParameterName = "@SEC"
        pSec.DbType = DbType.String
        pSec.Direction = ParameterDirection.Input
        pSec.Value = Seccode
        cmd.Parameters.Add(pSec)


        pD.ParameterName = "@D"
        pD.DbType = DbType.Date
        pD.Direction = ParameterDirection.Input
        pD.Value = d
        cmd.Parameters.Add(pD)

        pT.ParameterName = "@P"
        pT.DbType = DbType.Double
        pT.Direction = ParameterDirection.Input
        pT.Value = Par.T_Long
        cmd.Parameters.Add(pT)


        cmd.CommandType = CommandType.Text
        cmd.CommandText = qstr & str & "?"

        Try
            dr = cmd.ExecuteReader()
            Kol = pKol.Value
            Vol = pVol.Value
        Catch e2 As Exception ' Ошибка чтения
            MsgBox(e2.Message)
            Return TR
        End Try

 . . .

Declare @sum_rows INT
Select @sum_rows = count(*) From table1

Select count(*) as sum_rows From table1