关于GridData的单元格只读的有关问题（在线急等）

关于GridData的单元格只读的问题（在线急等）
本人在用如下的代码对GridData的单元格进行写入的时候，提示.Text为只读，请问如何解决。


Set   DataGrid1.DataSource   =   rs

dim   i   as   integer
dim   j   as   integer
j=1
do   while   not   rs.eof
        with   grid
                for   i=1   to   rs.fields.count-1
                    .col=i
                    .row=j
                    .text= "sdfsadfasdf "
              next   i
        end   with
        rs.movenext
        j=j+1
loop


[解决办法]
Set DataGrid1.DataSource = rs
==＞这行不要。
[解决办法]
用DataGrid显示表中内容的那段代码，你是如何写的？
[解决办法]
最大行、最大列没有设置。
[解决办法]
.text为只读,一般为combo控件设置为不可写入的问题(设置值为2)
[解决办法]
数据库中记录 不在combo的list中