Codigo de visual, que no hace nada.

Buenas,le molesto otra vez para consultar...  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