VBA to Insert payments from a DailyQuery into a Total Payments table Errors Out

[cleteh]

I get an error saying to few parameters. Expected 1. On the line in Red.

x = CurrentDb.OpenRecordset("select YESTERDAYS_INTEREST_CALC from [Daily Interest]")(0) + CurrentDb.OpenRecordset("select totint from TotalInterst")(0)
CurrentDb.Execute ("insert into TotalInterest (totInt) values (" & x & ")")

I am trying to take the value in the YESTERDAYS_INTEREST_CALC from [Daily Interest]") and add it to totint from TotalInterst