'вот сам класс 

Private rsDataCombo() As clsRst
Private DataCombos() As Object ' DataCombo 'Object '
Private intDataCombos As Integer

Private Fld() As Object
Private FldType() As typeCtrl
Private FldCount As Integer
Private FldIsError() As Boolean
Private FldErrorMess() As String
Private FldSourceField() As String
Private FldRset As clsRst 'ссылка на объект Рекордсет


Public Function DbCombo_Load(ByVal idx As Integer, _ номер combo
                             ByVal strId_field As String, _ 'имя ID-поля
                             ByVal strTableSource As String, _ 'имя таблицы
                             ByVal strOrderByField As String, _ 'Имя показывающегося поля
                             ByRef dcbo As Object, _ 'объект датакобмо или даталист
                             Optional ByVal idvalue, _   ' если надо то переменная id по умолчанию
                             Optional strSQL As String) As Integer ' если вместо таблицы используеш запрос


intDataCombos = IIf(idx = 0, intDataCombos + 1, idx)
ReDim Preserve rsDataCombo(intDataCombos)
ReDim Preserve DataCombos(intDataCombos)

'Set DataCombos(intDataCombos) = dcbo
Set DataCombos(intDataCombos) = dcbo

Set rsDataCombo(intDataCombos) = New clsRst
    
rsDataCombo(intDataCombos).s_strID_Field = strId_field
If Not ((strSQL = "")) Then
    Call rsDataCombo(intDataCombos).Rset_Open_R_SQL(strSQL)
Else
    rsDataCombo(intDataCombos).s_strSqlSource = strTableSource
    Call rsDataCombo(intDataCombos).Rset_Open_R(, strOrderByField)
End If
Set dcbo.RowSource = rsDataCombo(intDataCombos).rsRecset
dcbo.ListField = strOrderByField
dcbo.BoundColumn = strId_field
If ((Not (IsMissing(idvalue))) And (Not (IsNull(idvalue)))) Then
     dcbo.Boundtext = (idvalue)
End If
DbCombo_Load = intDataCombos
'dcbo.BoundText = idvalue
End Function