没有为参数＆＃39; e＆＃39;指定参数。 ＆＃39;受保护的子TextBox1（发件人为对象，e为System.EventArgs）＆＃39;

Question

Imports System.Data.OleDb
Imports System.Data

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub TextBox1(sender As Object, e As System.EventArgs) Handles TextBox1.TextChanged
        Dim userid As String = TextBox1.Text
        Dim params(1) As OleDbParameter
        params(0) = New OleDbParameter("uid", TextBox1.Text)
        params(1) = New OleDbParameter("up", TextBox2.Text)
        Dim sql = "select * from user where userid=@uid and userpassword=@up"
        Dim ds As DataSet = AccessHelper.ExecuteDataSet(sql, params)
        If ds.Tables(0).Rows.Count = 1 Then
            Session("userid") = TextBox1.Text

        Else
            Dim paramst(1) As OleDbParameter
            paramst(0) = New OleDbParameter("tid", TextBox1.Text)
            paramst(1) = New OleDbParameter("tp", TextBox2.Text)
            Dim sqlt = "select * from teacher where teacherid=@tid and userpassword=@tp"
            Dim dst As DataSet = AccessHelper.ExecuteDataSet(sqlt, paramst)
            If dst.Tables(0).Rows.Count = 1 Then
                Session("teacherid") = TextBox1.Text
            End If
        End If
    End Sub
End Class

无法弄清楚我为什么会收到错误（http://i.imgur.com/Zb2hBlo.png）

不知道我在做什么，但检查登录是否存在。事先就是说textbox1 / 2没有被宣布，但现在它已经转为此了;无论哪种方式，它都不起作用，我不知道该怎么做。