Форумы HiProg.com - MS ACCESS, VBA, VB

ник: alecks_lp
или так

Dim cmb As Access.ComboBox Dim rs As New ADODB.Recordset Dim strString As String Dim lngN As Long Dim cntC As Long Const ITEM_DELIMITER = ";" strString = vbNullString lngN = rs.Fields.Count Set cmb = Me.Combo_DROUP cmb.RowSourceType = "Value List" cmb.ColumnCount = lngN Do Until rs.EOF     For cntC = 0 To lngN - 1         strString = strString & CStr(Nz(rs.Fields(cntC)), vbNullString) & ITEM_DELIMITER     Next cntC     rs.MoveNext Loop lngN = Len(strString) If lngN > 1 Then     strString = Left(strString, lngN - 1)     cmb.RowSource = strString Else     cmb.RowSource = vbNullString End If