suma columna grid según fecha

[guillebomtrasmiti]

alguien me puede decir si aquí hay algún error?¿?

Public Sub selecciontotal()

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text

comados.CommandText = "SELECT Fecha,Anulado,Barra,NombTerminal, ROUND(Sum(Cantidad*Pts),2) AS TOTAL From [Introducción De Ventas] where Barra = @combo1 and NombTerminal = @combo2 and Anulado = 0 and Fecha between #01/01/" & ComboAno.Text & "# and #31/01/" & ComboAno.Text & "# group by Fecha,Anulado,Barra,NombTerminal"

comados.Parameters.AddWithValue("@combo1", ComboMostrador.SelectedValue.ToString)
comados.Parameters.AddWithValue("@combo2", ComboTerminal.SelectedValue.ToString)
' mes de enero
If ComboMeses.Text = ("ENERO") Then
borratextos()
adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "[Introducción De Ventas]")

DgTotales.DataSource = datavacio
DgTotales.DataMember = "[Introducción De Ventas]"

End If

' mes de febrero
Dim comadosfebrero = conexion.CreateCommand
comadosfebrero.CommandType = CommandType.Text

comadosfebrero.CommandText = "SELECT Fecha,Anulado,Barra,NombTerminal, ROUND(Sum(Cantidad*Pts),2) AS TOTAL From [Introducción De Ventas] where Barra = @combo1 and NombTerminal = @combo2 and Anulado = 0 and Fecha between #01/02/" & ComboAno.Text & "# and #28/02/" & ComboAno.Text & "# group by Fecha,Anulado,Barra,NombTerminal"

comadosfebrero.Parameters.AddWithValue("@combo1", ComboMostrador.SelectedValue.ToString)
comadosfebrero.Parameters.AddWithValue("@combo2", ComboTerminal.SelectedValue.ToString)

If ComboMeses.Text = ("FEBRERO") Then
borratextos()
adapta2.SelectCommand = comadosfebrero
adapta2.Fill(datavacio, "[Introducción De Ventas]")

DgTotales.DataSource = datavacio
DgTotales.DataMember = "[Introducción De Ventas]"
DgTotales.Refresh()
End If

End Sub