try this. I had to dummy up the values from your form with the first 5 DIMs. You can comment them out. You might need to add back the me. prefix in the SQL.
Code:
Sub subTestArray()
Dim itemID As Long
itemID = 4
Dim price As Currency
price = 0.55
Dim pricedate As Date
pricedate = #11/11/2015#
Dim taxcode_1 As Single
taxcode_1 = 4.44
Dim taxcode_2 As Single
taxcode_2 = 2.56
Dim sSQL As String
Dim store As Variant
Dim stores As Variant
stores = Array("105", "107", "111", "115")
For Each store In stores
sSQL = "INSERT INTO [StorePrices](ItemID, StoreID, Price, PriceDate, Taxcode_1, Taxcode_2) VALUES(" & [itemID] & "," & store & "," & price & "," & pricedate & "," & taxcode_1 & "," & taxcode_2 & ")"
Debug.Print sSQL
CurrentDb.Execute sSQL, dbFailOnError
Next store
End Sub
And the debug.print showed
Code:
INSERT INTO [StorePrices](ItemID, StoreID, Price, PriceDate, Taxcode_1, Taxcode_2) VALUES(4,105,0.55,11/11/2015,4.44,2.56)
INSERT INTO [StorePrices](ItemID, StoreID, Price, PriceDate, Taxcode_1, Taxcode_2) VALUES(4,107,0.55,11/11/2015,4.44,2.56)
INSERT INTO [StorePrices](ItemID, StoreID, Price, PriceDate, Taxcode_1, Taxcode_2) VALUES(4,111,0.55,11/11/2015,4.44,2.56)
INSERT INTO [StorePrices](ItemID, StoreID, Price, PriceDate, Taxcode_1, Taxcode_2) VALUES(4,115,0.55,11/11/2015,4.44,2.56)