FORM
Partial Class _DefaultInherits System.Web.UI.Page
Protected Sub BUT_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BUT.Click
Dim u, p As String
u = Request.Form.Item("U")
p = Request.Form.Item("P")
Dim r As New validar()
If r.valite(u, p) Then
Session.Add("valido", True)
Else
Response.Redirect("default.aspx")
End If
End Sub
End Class
CLASE
Imports Microsoft.VisualBasic
Imports system.data
Public Class validar
Public Function valite(ByVal carnet As String, ByVal obs As String) As Boolean
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Nueva carpeta\Usuario.mdb")
con.Open()
Dim cad As String = String.Format("select carnet, obs from tarde where carnet = '{0}', obs = '{0}'", carnet, obs)
Dim cmd As New OleDb.OleDbCommand(cad, con)
Dim r As String = cmd.ExecuteScalar()
con.Close()
Return r
End Function
End Class
me da graves errores enserio agradeceria su ayuda