No logro que me funcione el select en vb.net

[beamm]

Bueno ahora si que me salió tuve que kambiar algunos parámetros porque para identificarse puse dni y contraseña mejor que otra kosa asi que pongo el kodigo final que me kedo por si alguien lo necesita. (no ha kambiado mucho de lo que me habeis dixo aki, asi q muxisimas gracias x la ayuda)

Protected Sub Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Aceptar.Click
Dim a, b As String
Dim resul As OleDbDataReader


Dim cnn As OleDbConnection

If DropDownList1.Text = "Profesor" Then

a = TextBox1.Text
b = TextBox2.Text


cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()
Dim query As String = "SELECT Apellido " & _
"FROM Profesor " & _
"WHERE DNI = '" & a & "'" _
& "AND Contraseña = '" & b & "'"

Dim objCmd As New OleDbCommand(query, cnn)
resul = objCmd.ExecuteReader()


Dim apellido As String = String.Empty

While resul.Read()
apellido = resul.GetString(0)
End While


cnn.Close()


If apellido <> String.Empty Then
Response.Redirect("~/Profesor.aspx")
Else : Response.Write("El usuario no existe")

End If


end if
End sub