hi every body,
finally I did and correct the code myself and this is my final code which has been tested:
Dim rs As DAO.Recordset
Dim strSQL As String
Set dbs = CurrentDb()
Set rs = dbs.OpenRecordset("Table1", dbOpenTable)
strSQL = "UPDATE Table1 SET Table1.[Total Accounts] = [Account];"...