Visual Basic - suma de registros, ayuda x favor

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


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

yo reemplazaria esto
Set Text5.DataSource = rsSUMA

por esto

text5.text = rsDUMA.fields(0).value

pruebalo asi a ver si te funciona mejor.
Espero te sirva, bye..

Muchsisisismas gracias, resulto el codigo k me enviastes ya no nesecito pasarlo la mshflexfrid y luego al textbox , ahora de fernte al textbox, graciasssssssss