vb中vscrollbar的用法

Private Sub Command1_Click()
Form3.Show
Unload Me
End Sub

Private Sub Command2_Click()
Form4.Show
Unload Me
End Sub

Private Sub Command3_Click()
If MsgBox("确定要删除" & Trim(MS1.TextMatrix(MS1.Row, 1)) & "吗？", vbOKCancel + vbInformation, "提示信息") = vbOK Then
sql = "delete from kc where kch='" + Trim(MS1.TextMatrix(MS1.Row, 0)) + "'"
cnn.Execute (sql)
MsgBox "操作成功"
End If
Call showdata
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()

MS1.Rows = 50:

MS1.Cols = 4 '定义MS1表的总行数、总列数
'定义MS1表格的列宽及表头
s = Array("600", "700", "2000", "900")
Y = Array("编号", "课程号", "课程", "任课老师")
For i = 0 To 3
MS1.ColWidth(i) = s(i): MS1.TextMatrix(0, i) = Y(i)
Next i
MS1.FixedRows = 1 '设置固定行、列
'定义MS1表的列序号
For i = 1 To MS1.Rows - 1
' MS1.TextMatrix(i, 0) = i
MS1.RowHeight(i) = 300
Next i
MS1.ColAlignment(1) = 1

MS1.RowHeight(0) = 300

Call showdata

End Sub

Public Sub showdata()
For i = 1 To MS1.Rows - 1
For j = 1 To MS1.Cols - 1
MS1.TextMatrix(i, j) = ""
Next j
Next i
Dim rs2 As New ADODB.Recordset

sql = "select * from kc "
Set rs2 = cnn.Execute(sql)

i = 1

MS1.Rows = 1
Do While Not rs2.EOF
MS1.Rows = MS1.Rows + 1
MS1.RowHeight(MS1.Rows - 1) = 300
MS1.TextMatrix(MS1.Rows - 1, 0) = i
MS1.TextMatrix(MS1.Rows - 1, 1) = Trim(rs2.Fields("kch"))
MS1.TextMatrix(MS1.Rows - 1, 2) = Trim(rs2.Fields("kcm"))
MS1.TextMatrix(MS1.Rows - 1, 3) = Trim(rs2.Fields("kct"))
rs2.MoveNext
i = i + 1

Loop

rs2.Close
Set rs2 = Nothing

End Sub

Private Sub MS_Click()

End Sub

Private Sub MS1_Click()

End Sub

vscrollbar起不了作用，拉动后表没动，该怎么改？？

vscrollbar直接放在窗体上是不行的，你这样做，先再窗体上加一个PictureBox，设置它的高和窗体一样，然后把网格加在PictureBOx上，并且设置网格的高和PictureBox的高一样，假设你的网格的名字为Datagrid1,滚动条的名字为VScroll1，然后添加如下代码即可

Private Sub VScroll1_Change()
Datagrid1.Top = -VScroll1.Value
End Sub