Dim connstr As String

        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "App_Data/book.mdb"

        Dim myConn As New Data.OleDb.OleDbConnection(connstr)
        Dim ole As String
        ole = "SELECT * FROM [UserInfo]where UserID='" + TextBox1.Text + "' or UserPassWord='" + TextBox2.Text + "' "
        Dim mycmd As New Data.OleDb.OleDbCommand(ole, myConn)
        myConn.Open()


        Dim read As Data.OleDb.OleDbDataReader = mycmd.ExecuteReader()
        If (read.Read()) Then
            If read.GetValue(0).ToString = TextBox1.Text Then
                If read.GetValue(1).ToString = TextBox2.Text Then
                    Response.Redirect("Default2.aspx")
                End If
                Response.Write("密码错误")
            End If
            Response.Write("用户名错误")





        End If


它老说 read As Data.OleDb.OleDbDataReader = mycmd.ExecuteReader()标准表达式中数据类型不匹配