Visual Basic para Aplicaciones - AYUDA POR FAVORRRR

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 sale o no se ve la respuesta
Set MS.DataSource = rsSUMA <-- Si funciona

No entiendo xk sale con el MSHFLEXGRID Y NO CON EL TEXTBOX

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

agregale al textbox en la propiedad datafield el nombre del campo de tu recordset que contine la suma.
Saludos.