简单问题，关于dataGrid

[read123_0]

acon.ConnectionString = constr$
acon.Open
ars.Open "select * from disklist", acon, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = ars
我用的以上代码绑定的dataGrid，datagrid的allowAddNew为flase，在窗体上做一个button为添加,添加代码为ars.addNew这样是可以添加的，可是在每次点击这个button以后dataGrid上面就只显示两个可见行，也就是只在新行前面显示一行其它的都不可见了。

一直苦思不得其解，请各位高手同志们指点一下呀

[980]

ars.Open "select * from disklist", acon, adOpenDynamic, adLockPessimistic

[moyaxu]

ars.Open "select * from disklist", acon, adOpenKeyset, adLockOptimistic改成ars.Open "select * from disklist", acon, adOpenStatic, adLockOptimistic试试

[chenyu5188]

acon.ConnectionString = constr$
acon.Open
ars.cursorlocation =aduseclient '使用客户端游标
ars.Open "select * from disklist", acon, adOpenKeyset,adLockOptimistic
Set DataGrid1.DataSource = ars
DataGrid1.refresh

[xianghua]

加一句datagrid1.refresh 試一下。
請在綁定之前加一句：set rs.cursorlocation=aduseclient

[s6w6k]

ars.cursorlocation =aduseclient '这句关键
ars.Open "select * from disklist", acon, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = ars