Dim rs As Recordset
Dim db As Database
Dim WertA As Double, WertB As Double, WertC As Double
 
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_ProdCont", dbOpenSnapshot)
WertA = rs!dblBudgetSach
WertB = rs!dblSachlst
WertC = WertA - WertB
txtDiff.Text = CStr(WertC)
 
rs.Close
Set rs = Nothing