求助：数据库链接问题
public strcnn as string
private sub fillchangelist(stuno as string)
dim cnn as new connection
dim cmd as new command
dim rs as new recordset
strcnn="(省略)"
cnn.open strcnn
cmd.activeconnection=cnn
cmd.commandtype=adcmdstoredproc
cmd.commandtext="stu_getchangebyno"
cmd.parameters.append cmd.createparameter("省略")
with rs
.activeconnection=cnn
.cursorlocation=aduseclient
.cursortype=adopenstatic
end with
set rs=cmd.execute()
set mshflexgridchange.datasource=rs ‘问题就出现在这一句话的上面，鼠标放上面显示mshflexgridchange=nothing,似乎那个rs 都没起作用！~！
end sub
当我在运行的时候出现说是对象未标识或WITH块未设置
