Sub Combo1_AfterUpdate()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("tblCombos")
With rst
.Edit
' Change data in edit buffer.
!Field1 = Me.Combo1
.Update
.Close
End With
Set rst = Nothing
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("tblCombos")
With rst
.MoveFirst
Me.Combo1 = !Field1
Me.Combo2 = !Field2
Me.Combo3 = !Field3
End With
Set rst = Nothing