Visual Basic - ayuda xfavor con suma registros

Hola amigos del foro , tengo el siguiente problema:
- Deseo saber la suma de todos mis registros que sean de una misma obra y de un mism contratista, por ejemplo:

obra contratista val
A jorge 10 <----
A carlos 10
B jorge 10
A jorge 10 <--

deseo saber la suma total de la obra=A y contratista=jorge
la respuesta seria 20.

he intentado de la siguiente forma:

Dim rsSUMA As ADODB.Recordset
Dim sqlCadena As String

Set rsSUMA = New ADODB.Recordset
rsSUMA.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SUMA.mdb;Persist Security Info=False"

obfiltro = Text1.Text
sufiltro = Text2.Text

sqlCadena = "Select SUM(VAL)from tabla1 where obra='" & obfiltro & "' and subc='" & sufiltro & "'"

rsSUMA.Open sqlCadena, , adOpenDynamic, adLockOptimistic

Set Text5.DataSource = rsSUMA <--- "No veo la suma(no funciona)
Set MS.DataSource = rsSUMA <--- "si veo la suma(si funciona)



deseo ver el resultado en un textox que en este caso se llama text5, pero no se ve nada , no me sale ningun error ni nada,n no logro ver el resultado. Que puedo estar haciendo mal, o alguna otra solucion, gracias amigos

sqlCadena = "Select SUM(VAL) as xxx from tabla1 where obra='" & obfiltro & "' and subc='" & sufiltro & "'"

rsSUMA.Open sqlCadena, , adOpenDynamic, adLockOptimistic

Text5.Text=rsSUMA!xxx

saludos