Here is what I have

Private Sub Command4_Click()
datPrimaryRS.RecordSource = "select* Name,Car,Origin,[Round 1 Time],[Round 1 Speed],[Round 2 Time],[Round 2 Speed],[Round 3 Time],[Round 3 Speed],Position,[Nominated Speed],Variation from [Class IV] "

datPrimaryRS.Refresh
grdDataGrid.Refresh

I copied most from current record source.maybe i have it all back to front.