with块变量未设置,该如何处理

with块变量未设置
当运行程序
RS.Open "select*from销售信息表 ",Cnn,adOpenKeyset,adLockOptimistic   '打开数据库
      If   MS1Grid1.TextMatrix(1,1)   <>   " "   And   MS1Grid1.TextMatrix(1,   7)   <>   " "   Then
    For   i   =   1   To   100
      If   MS1Grid1.TextMatrix(i,   1)   <>   " "   And   MS1Grid1.TextMatrix(i,   7)   <>   " "   Then
的时候   出错 "对象变量和with块变量未设置 "（91号错误）怎么解决


[解决办法]
你要先
Set RS = New adodb.RecordSet

再

RS.Open
[解决办法]
老问题，下次注意