IF sqlexec(m.con1,'backup database &db1 to disk='&flname\&db1..bak'')<0 Aerror(laerror) Messagebox(laerror[1,2]) Return.F. Endif