VB中adodc1.Recordset.Filter有关问题

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
一直提示我类型错误。请问我改怎么做？高手们顶起来！

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