update sql currentdb execute problem

[meenctg]

my code is

Private Sub Command12_Click()
Dim SQL As String
If Me.From = DLookup("BkashAccount", "Accounts", "[BkashAccount]=""" & Me.From & """") Then
CurrentDb.Execute ("UPDATE Accounts " & _
                      "SET Accounts.AcBalance = ''" & Me.ToBal & " +  " & Me.AmountTransfer & "''" & _
                      "WHERE [BkashAccount] = '" & Me.To & "'")

CurrentDb.Execute ("UPDATE Accounts " & _
                      "SET Accounts.AcBalance = ''" & Me.FromBal & " + " & Me.AmountTransfer & "''" & _
                      "WHERE [BkashAccount] = '" & Me.From & "'")
End If

End Sub

It shows like this message. Please help me for fix this.

 

[JHB]

What about the below:

CurrentDb.Execute ("UPDATE Accounts SET Accounts.AcBalance = " & Me.ToBal + Me.AmountTransfer & " WHERE [BkashAccount] = '" & Me.To & "'")
CurrentDb.Execute ("UPDATE Accounts SET Accounts.AcBalance = " & Me.FromBal + Me.AmountTransfer & " WHERE [BkashAccount] = '" & Me.From & "'")