简单问题，关于dataGrid

Question

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上面就只显示两个可见行，也就是只在新行前面显示一行其它的都不可见了。一直苦思不得其解，请各位高手同志们指点一下呀

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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