VIENDO ESTE CODIGO ME PUEDEN DECIR POR QUE NO ME SACA LA SUMA DE CANTIDAD POR PTS SOLO Y CUANDO EL CAMPO NOMBREFORMAPAGO SEA TARJETA CREDITO....DIOSSSS AYUDAAAAA
Dim adapta1 As New OleDbDataAdapter
Dim datavacio As New DataSet
conexion.Open()
Dim coman1 = conexion.CreateCommand
coman1.CommandType = CommandType.Text
coman1.CommandText = "Select Sum(Cantidad*Pts),NombreFormaPago From [Introducción De Ventas] Where NombreFormaPago ('TARJETA CREDITO') GROUP BY NombreFormaPago ORDER BY NombreFormaPago"
adapta1.SelectCommand = coman1
adapta1.Fill(datavacio, "[Introducción De Ventas]")
Dim Lector1 = coman1.ExecuteScalar
LbTarTotal.Text = Lector1.ToString
conexion.Close()