OKI, lidt hjælp tak

Jeg programmere i VB og jeg har lavet dette:

Set db = OpenDatabase(\"data\\\" & \"base.mdb\")
                        SQL = \"UPDATE users SET users.number = \'&intmax&\' WHERE (users.username = \'&username&\')\"
                        Set rs = db.OpenRecordset(SQL)


Hvorfor virker det ikke??? hvad er der galt