No logro que me funcione el select en vb.net

[beamm]

Jo perdon de verdad, eh? siento ser pesada pero esk mestoy volviendo loka, me sigue sin funcionar. Me pone esto:

Detalles de la excepción: System.Data.OleDb.OleDbException: No coinciden los tipos de datos en la expresión de criterios.

El código que me queda es este pero esk no me funciona :(. Tengo puesto el Imports SYSTEM.DATA.OLEDB , no se si me faltará algo de eso o q. ya ni se. Perdón :((



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 Nombre " & _
"FROM Profesor " & _
"WHERE DNI = '" & a & "'" _
& "AND Contraseña = '" & b & "'"

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


Dim nombre As String = String.Empty

While resul.Read()
nombre = resul.GetString(0) 'esto retornara el nombre
End While
Response.Write(resul)

cnn.Close()

If nombre <> String.Empty Then
Response.Redirect("~/Profesor.aspx")
End If



End If


End Sub