语句报错，求指导！！

set sh=WScript.CreateObject("WScript.Shell")
dim zh
zh = inputbox("请输入帐号")
sh.run "telnet"
WScript.Sleep 100
sh.SendKeys "open 10.160.169.121~"
WScript.Sleep 2000
sh.SendKeys "sjcx~"
WScript.Sleep 500
sh.SendKeys "1~"
WScript.Sleep 100
sh.SendKeys "dbaccess~"
WScript.Sleep 100
sh.SendKeys "~"
WScript.Sleep 100
sh.SendKeys "{DOWN}"
sh.SendKeys "{DOWN}"
sh.SendKeys "{DOWN}"
sh.SendKeys "~"
WScript.Sleep 200
sh.SendKeys "~"
WScript.Sleep 200
sh.SendKeys "unload to 123.txt~"
sh.SendKeys "select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2006 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2007 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2008 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2009 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2010 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2011 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2012 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb2013 where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"

sh.SendKeys "union select zh,dljg,jyrq,jysj,jym,jyje,zhye,jdbz,fhgy,dyzh~"
sh.SendKeys "from lslsb where zh = '"
sh.SendKeys zh
sh.SendKeys "' order by jyrq,jysj~"
请问这个语句超长是什么原因引起的错误呀,