Moving record from one table to another using inputbox

[papasmurfuo9]

Hi
please could someone tell me whats wrong with the below

im trying to get a record from tbl_new_accounts to tbl_closed_accounts, based on the number entered in a input box

Dim StoreNumber As String
StoreNumber = InputBox("Please Enter The Store Number", "")

CurrentDb.Execute ("INSERT INTO Tbl_Closed_Accounts SELECT Tbl_New_Accounts.* From Tbl_New_Accounts WHERE (((Tbl_New_Accounts.Fld_Store_Number)=" & StoreNumber & "));")

many thanks

 

[papasmurfuo9]

sorted, needed & "'" & either side of store number