Private Sub PopulateLayout(ByVal entity_id As Integer)
    Dim sSQL As String
    
    cboLayout.Clear
    
    sSQL = "PS_Layout_list @deal_only=1, @entity_id=" & entity_id
    
    rs.Open sSQL
    Do While Not rs.EOF
       cboLayout.AddItem
       cboLayout.Column(0, cboLayout.ListCount - 1) = rs("layout_id").Value
       cboLayout.Column(1, cboLayout.ListCount - 1) = rs("description").Value
       rs.MoveNext
    Loop
    rs.Close
    
    If cboEntity = 4505 Then
       cboLayout = 14400  ' here is where error occurred
    End If
    cboSnapshot.SetFocus
End Sub