extend the size of combo box

hi is there any chance I can extend the size of my combo box to hold
the relevant data

Code:

---

'populate combo box with available lists
Public Function GetRiskDetails(cboRiskName As ComboBox)
On Error GoTo Err_GetRiskDetails

    Dim rsSet As ADODB.Recordset
    Dim objCmd As Command
    Dim strRiskName As String
   
    Set rsSet = New ADODB.Recordset
   
    With rsSet
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .CursorType = adOpenDynamic
    End With
 
    Set objCmd = New Command
          With objCmd
            .ActiveConnection = gBass
            .CommandType = adCmdStoredProc
            .CommandText = "up_Sel_RisksDetails1"
          End With
   
    Set rsSet = objCmd.Execute
 
    cboRiskName.ColumnCount = 1
    cboRiskName.ColumnWidths = "3 cm"
    cboRiskName = ""
   
    'create drop down lists
    Do While Not rsSet.EOF()
        strRiskName = strRiskName & """" & rsSet!Name & """" & ";"
        rsSet.MoveNext
    Loop

    cboRiskName.RowSource = strRiskName
   
    'finished with object so de-allocate
    rsSet.Close
   
    Set objCmd = Nothing
       
Exit_GetRiskDetails:
    Exit Function

Err_GetRiskDetails:
  msgbox Err.Description
    Resume Exit_GetRiskDetails
    Resume
End Function

---

the above is used to populate a combo box with a lists of items but I get
and error 'the setting for the property is too long blah blah!!'

anyhelp ???