Ah, never mind. I made the following adjustments and it works. woohoo
Private Sub Command29_Click()
On Error GoTo GET_RESIDENT_DATA_Err
CurrentDb.Execute "Delete * from [Resident Nutritional Profile]"
DoCmd.OpenTable "Resident Nutritional Profile", acViewNormal, acAdd...