初学vb不知道这是为什么！大家帮忙看看！！在线等待！急！！

我的代码
SQL = "select * from gsinfo1"
Set rs = ExecuteSQL(SQL, MsgText)While Not rs.EOF               <===================说什么我的with没有设定qyno = rs.Fields("qyno").Value
gsname = rs.Fields("gsname").Value
gsperson = rs.Fields("gsperson").Value
gsaddr = rs.Fields("gsaddr").Value
gszz = rs.Fields("gszz").Value
gslx = rs.Fields("gslx").Value
gszx = rs.Fields("gszx").Value
hytype = rs.Fields("hytype").Value
mobile = rs.Fields("mobile").Value
jyfw = rs.Fields("jyfw").Valuers.MoveNexttxtSQL = "insert into saveqy (qyno,gsname,gsperson,gsaddr,gszz,gslx,gszx,hytype,mobile,jyfw,xmID) values('" & qyno & "','" & gsname & "','" & gsperson & "','" & gsaddr & "','" & gszz & "','" & gslx & "','" & gszx & "','" & hytype & "','" & mobile & "','" & jyfw & "','" & maxid & "')"
Set mrc = ExecuteSQL(txtSQL, MsgText)
WendtxtSQL = "delete from gsinfo1"
Set mrc = ExecuteSQL(txtSQL, MsgText)