Public Function NewSQL()
	On Error Resume Next
	CurrentDb.CreateQueryDef "Enter SQL"
	DoCmd.OpenQuery "Enter SQL", acViewDesign
	DoCmd.RunCommand acCmdSQLView
	DoCmd.RunCommand acCmdDelete
End Function