Sysghost,
Если у тебя таблицы типовые, то можешь менять запрос-источник данных
q="Select * from " & ПолеСоСписком.Value
If DCount("*", "MSysObjects", "Type = 5 AND Name = 'МойЗапросИсточникДанных'") = 1 Then
'CurrentDb.QueryDefs.Delete "МойЗапросИсточникДанных"
CurrentDb.QueryDefs("МойЗапросИсточникДанных").SQL = q
End If
Только нужно, чтобы поля совпадали и по именам, а то форма не будет работать