cmd.CommandText = "SELECT colTyp1, SUM(colBetrag) FROM myTabelle WHERE colTyp2" & _
  "= 'bla' AND 
colTyp3 = 'blub') GROUP BY colTyp1

Dim Einlesen As SqlClient.SqlDataReader
Dim i(1) as Integer
 
Einlesen = cmd.ExecuteReader()
Einlesen.Read()
i(0) = Einlesen.GetInt32(0))
i(1) = Einlesen.GetInt32(1))

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)