On Error Resume Next
Dim sql As String
Dim ps As String
If Not Chr(14) Then
    sql = "Porto like %" & Text3.Text & "%"
    Rs.Filter = sql
    ps = Len(Text3.Text)
    Text3.Text = Left$(Rs.Fields!Porto, Len(Rs.Fields!Porto) + ps)
    With Text3
        .SelStart = Left$(Rs.Fields!Porto, Len(Rs.Fields!Porto) + ps) + 1
        .SelLength = Left$(Rs.Fields!Porto, Len(Rs.Fields!Porto) + ps) + Len( _
          Rs.Fields!Porto) - 1
    End With
    Rs.Requery
End If