Access - Error de sintaxis (falta operador) en la expresión consulta

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Buscar_Click()

'Botón de Buscar registro

If (DataGrid1.SelBookmarks.Count <> 0) Then

DataGrid1.SelBookmarks.Remove 0

End If

mensaje = InputBox("Introducir el ID de la persona...", "Busqueda")

If mensaje = "" Then Exit Sub

rs.Find "IDEstudiante = '" & mensaje & "'"

If rs.EOF = False And rs.BOF = False Then

DataGrid1.SelBookmarks.Add rs.Bookmark

End If

End Sub