Query SQL to VBA



DoCmd.SetWarnings FALSE
DoCmd.RunSQL ""
DoCmd.SetWarnings TRUE