Min kode 'afterupdate' virker for godt

Hej Eksperter.

Min kode er i en combo på Mainform og lægger tallene sammen i subForm. MEN det medtager alle tal i tabellen til subform og ikke kun dem jeg ønsker for den specielle record.

Hvordan får jeg kun beregnet de tal som indegår i me.id for main Form?

Private Sub Combo31_AfterUpdate()

Me.Cost1 = " "
Me.Count1 = " "

If Not IsNull(Me!Combo31) Then

Dim Stringsearch As String

Stringsearch = Me!Combo31

Me.Cost1 = DSum("[cost]", "VsatCosts", "[Name]='" & Stringsearch & "'")
Me.Count1 = DCount("[ID]", "VsatCosts", "[Name]='" & Stringsearch & "'")

Else
Me.Cost1 = " "
Me.Count1 = " "

End If

End Sub