VB中adodc1.Recordset.Filter问题。
Private Sub Command3_Click()

Dim del_table As Integer

del_table = InputBox("输入学号")


Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
If Adodc1.Recordset.Filter("学号") = del_table Then
Adodc1.Recordset.Filter("姓名") = Text2.Text

Exit Do

End If

Loop
End Sub
一直提示我类型错误。请问我改怎么做？高手们顶起来！

[解决办法]
分给我吧,别浪费.