You know I'm still having a problem. thias is what happens
On the Change event of the text box it executes code that searches for a match in the list box.
If it doesn't find a match I can keep typing.
If it finds a match, the text gets highlighted.
*******************************8
Private Sub SearchFor_Change()
'From Microsoft
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb
If Me.FindBy = "Congregation" Then strSQL = "SELECT OrgID, Congregation " & _
"FROM Organizations WHERE Congregation LIKE '" & _
Me!SearchFor.Text & "*'"
If Me.FindBy = "City" Then strSQL = "SELECT OrgID, City " & _
"FROM Organizations WHERE City LIKE '" & _
Me!SearchFor.Text & "*'"
If Me.FindBy = "State" Then strSQL = "SELECT OrgID, State " & _
"FROM Organizations WHERE State LIKE '" & _
Me!SearchFor.Text & "*'"
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
If rs.RecordCount > 0 Then
rs.MoveFirst
Me!CongregationList = rs!OrgID
CongregationList_AfterUpdate
SendKeys "{F2}"
End If
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub