Option Explicit

Dim cn As ADODB.Connection
Dim rsProducts As ADODB.Recordset
Dim rsCategories As ADODB.Recordset
Dim bndProducts As BindingCollection

Private Sub Command1_Click()
   rsProducts.Update
   rsProducts.Resync
End Sub

Private Sub Command2_Click()
   Debug.Print "CategoryID="; rsProducts("CategoryID")
End Sub

Private Sub Form_Load()
   Set cn = New ADODB.Connection
   cn.CursorLocation = adUseClient
   cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=(local)"
      
   Set rsProducts = New ADODB.Recordset
   rsProducts.Open "SELECT * FROM Products WHERE ProductID = 2" _
         , cn, adOpenStatic, adLockOptimistic, adCmdText
   rsProducts.MoveFirst
   Set bndProducts = New BindingCollection
   Set bndProducts.DataSource = rsProducts
   
   Set rsCategories = New ADODB.Recordset
   rsCategories.Open "SELECT * FROM Categories" _
         , cn, adOpenStatic, adLockReadOnly, adCmdText
   With DataCombo1
      .ListField = "CategoryName"
      .BoundColumn = "CategoryID"
      Set .RowSource = rsCategories
   End With
   
   With bndProducts
      .Clear
      .Add DataCombo1, "BoundText", "CategoryID"
      .Add Text1, "Text", "ProductName"
   End With
End Sub

Private Sub Check1_Click()
   PropertyChanged "Discontinued"
End Sub

Public Property Get Discontinued() As Variant
   Discontinued = Check1.Value And  1 
End Property
Public Property Let Discontinued(ByVal RHS As Variant)
   If IsNull(RHS) Then
      Check1.Value =  0 
   Else
      Check1.Value = RHS And  1  'Îãðàíè÷èòü ìàêñèìóì îäíåðêîé
   End If
End Property

   With bndProducts
      .Clear
      .Add DataCombo1, "BoundText", "CategoryID"
      .Add Text1, "Text", "ProductName"
      .Add UserControl11, "Discontinued", "Discontinued"
   End With