Private Sub Form_Load()
    Dim rst As ADODB.Recordset
    Dim cnn As New LclsConnection
    cnn.Server = "172.16.0.6"
    cnn.DBName = "REF"
    Set rst = cnn.openRST("Select * from item")
    Set Me.DataCombo1.DataSource = rst
End Sub

Public Function instance() As ADODB.connection
    Dim con As New ADODB.connection
    On Error Resume Next
    err.clear
    con.ConnectionString = _
                        "PROVIDER=" & provider & _
                        ";server=" & srv & _
                        ";database=" & database ' устанавлваем параметры соединения
    If user <> "" Then ' Если задано имя пользователя
        con.ConnectionString = con.ConnectionString & ";User ID=" & user ' прописываем его в соединение
        ' если задан пароль сохраняем его в соединении
        If password <> "" Then con.ConnectionString = con.ConnectionString & ";Password=" & password
    Else
        ' или устанавливаем доверительное соединение
        con.ConnectionString = con.ConnectionString & ";Trusted_Connection=yes"
    End If
    ' открываем соединение
    con.Open
    If err.Description = "" Then
        ' и если не было ошибок возвращаем
        Set instance = con
    End If
End Function

 
                Set rst = columns.item(i -  1 )
                Set cont = Controls.Add("MSDataListLib.dataCombo", columns.itemName(i -  1 ))
                cont.Style = dbcDropdownList
                cont.BoundColumn = rst.fields( 0 ).name
                cont.ListField = rst.fields( 1 ).name
                Set cont.RowSource = rst