Codigo de visual, que no hace nada.

Buenas, tengo un problema con un formulario, que no necesito, que me muestre en un text  el valor de el contenido de un campo de la BD, esta conectado y todo perfecto, el problema es que no hace nada, el text se queda en blanco. Este es el código que estoy usando.
Private Sub TR()   
Adodc4.Refresh   
With Adodc4   
.Recordset.MoveFirst     
Do While Not .Recordset.EOF       
If UCase(Trim(.Recordset("ced_alum"))) = UCase(Trim(Text1(16).Text)) Then            
Text1(14).DataField = "TR+"   
Exit Sub     
End If       
.Recordset.MoveNext     
  Loop   
End With
End Sub