ник: Волшебник
KempeR1t,
Option Compare Database
Option Explicit
Private Sub Кнопка4_Click()
Me![Список2].RowSource = "Таблица2"
End Sub
Private Sub Список0_Click()
Me![Список2].RowSource = "SELECT Таблица2.kod_id, Таблица2.Название, Таблица2.kod_id1 FROM Таблица2 WHERE (((Таблица2.kod_id1) = [Forms]![Форма1]![Список0])) ORDER BY Таблица2.kod_id;"
End Sub