为什么我的表格的上下滚动条拖不动的？

[wingthgame]

我用DATAGRID这个控件添加到窗口中，然后有一段这样的代码，是显示数据表中的内容，
Private Sub FullGrid()
If rs.State <> adStateClosed Then rs.Close
If flag = 1 Then
strSQL = "select * from 学生信息"
ElseIf flag = 2 Then
strSQL = "select * from 学生信息 where 姓名='" & txtInputName.Text & "'"
ElseIf flag = 3 Then
strSQL = "select * from 学生信息 where 班级='" & comStuClass.Text & "'"
End If
rs.Open strSQL, conn, 3, 3
Set dgStudent.DataSource = rs
With dgStudent
.Columns(0).Visible = False
.Columns(1).Width = 1500
.Columns(1).Caption = "学号"
.Columns(2).Width = 1200
.Columns(2).Caption = "姓名"
.Columns(3).Width = 900
.Columns(3).Caption = "性别"
.Columns(4).Width = 900
.Columns(4).Caption = "年龄"
.Columns(5).Width = 1200
.Columns(5).Caption = "出生日期"
.Columns(6).Width = 1500
.Columns(6).Caption = "籍贯"
.Columns(7).Width = 2000
.Columns(7).Caption = "所在班级"
End With
End Sub

但记录多的话，就会产生一个垂直的滚动条，上和下按钮是可以用的，但如果用鼠标按着中间的滚动条，想拖到上面的话，这个滚动条是不会动的，一直在下面的，不会到上面的，请问怎样弄才可以使这滚动条正常的滚动呢？