Private Sub txtSearch_Change() Dim vSearchString As txtString vSearchString = Me.Search.Text Me.txtSearch2.Value = vSearchString Me.SearchList.Requery