为什么运行vb出现编译错误：用户定义类型未定义

Private Sub bindTextBox(ByVal row As Int16)
Dim str1 As String
Dim str2 As String
Me.CmbClass.Text = BindClass(Me.DataGrid1.Item(row, 0))
Me.CmbCourse.Text = Me.DataGrid1.Item(row, 1)
str1 = Me.DataGrid1.Item(row, 2)
str2 = Me.DataGrid1.Item(row, 3)
Me.CmbStudent.Text = str2 + "|" + str1
Me.TxtResult.Text = Me.DataGrid1.Item(row, 4)
Me.TxtTeacher.Text = Me.DataGrid1.Item(row, 5)
Me.InDate.value = Me.DataGrid1.Item(row, 6)
End Sub

运行vb后这句Private Sub bindTextBox(ByVal row As Int16)有问题。

我再做一个信息系统，有关vb和SQL。寻求帮助，谢谢！

vb中的整数变量只有两个Integer 和 long,

integer的字节数为2，long的字节数为4

如果你需要4个字节长度的整型变量的话，这样定义

Private Sub bindTextBox(ByVal row As long)即可

Private Sub bindTextBox(ByVal row As Integer)

你用的是VB6。还是vb.net?

如是是VB6，那么，因为VB6中没有INT16类型 需要自己定义这种数据类型