组态联动编程通常涉及以下步骤：
创建表和窗体
首先，需要创建一个数据库表，并添加所需的数据。
接着，创建一个窗体，并在窗体上放置所需的控件，例如组合框（ComboBox）。
添加代码
为组合框添加行来源（RowSource），以便在选择不同的项时，能够从数据库中获取相应的数据。
为组合框的更新事件（如AfterUpdate）添加代码，以便在选择一个组合框的项时，自动更新另一个组合框的选项。
创建表
创建一个名为“部门联动”的表，包含字段“工厂”和“部门”。
创建窗体
在窗体上放置两个组合框（ComboBox），分别命名为“工厂”和“部门”。
添加代码
为“工厂”组合框的AfterUpdate事件添加代码，以更新“部门”组合框的RowSource：
```vba
Private Sub 工厂_AfterUpdate（）
Me.部门.RowSource = "select distinct 部门 from 部门联动 where 工厂='" & Me.工厂 & "'"
Me.部门.SetFocus
Me.部门.DropdownEnd
End Sub
```
为“部门”组合框的AfterUpdate事件添加代码，以更新“职位”组合框的RowSource（假设还有一个名为“职位”的组合框）：
```vba
Private Sub 部门_AfterUpdate（）
Me.职位.RowSource = "select distinct 职位 from 部门联动 where 工厂='" & Me.工厂 & "' and 部门='" & Me.部门 & "'"
Me.职位.SetFocus
Me.职位.DropdownEnd
End Sub
```
运行测试
运行程序，选择一个工厂，然后选择该工厂下的部门，此时职位组合框应自动更新为所选工厂和部门下的职位列表。
通过以上步骤，你可以实现基本的组态联动编程。对于更复杂的联动需求，可能需要进一步扩展代码和组件，以及考虑数据绑定和事件处理。