You're going about this completely the wrong way. You need an append query;
Dim PourMeADrink As string
PourMeADrink = "Insert Into Glass(Right, Now) Select Whiskey, Coke From Bottle Where Whiskey = 'Jack Daniels';"
CurrentDb.Execute PourMeADrink, dbPourMeAnotherOnError