[Iska]

Bio_Hazard, добавьте:

Код:

Private Sub filter_Change()
    If IsNull(Me![filter].Text) Or IsEmpty(Me![filter].Text) Then
        Me![Список32].RowSource = "SELECT login.ID_login, login.web FROM login ORDER BY login.web;"
    Else
        Me![Список32].RowSource = "SELECT login.ID_login, login.web FROM login WHERE login.web LIKE '" & Me![filter].Text & "*' ORDER BY login.web;"
    End If
End Sub

[Bio_Hazard]

Iska, Спасибо большое! Работает!