datagrid 的 垂直滚动条没有作用

[zhangy188]

请教高手，我设置的datagrid的查询，执行代码如下：
DbRecordset.Open "select * from elepatrol where readcdata ='" & sdata & "'", Con, adOpenStatic, adLockReadOnly

DataGrid1.AllowAddNew = True
DataGrid1.MarqueeStyle = 2
Set DataGrid1.DataSource = DbRecordset
DataGrid1.Refresh
DbRecordset.Close

程序运行后，垂直滚动条不起作用，无法乡下滚动
急，原以高分相赠，谢谢