Private Sub Search_Click()
Dim db As Database, rcd As DAO.Recordset, lngCount As Long, intRtn As Integer
Dim strWhere As String
strWhere = ""
If Not IsNull(Me!txtLog) Then
strWhere = "[LogNumber] Like " & Chr(34) & Me!txtLog
If Right$(Me!txtLog, 1) = "*" Then
strWhere = strWhere & Chr$(34)...