ComboBox con Varias Columnas

Hola expertos, con el siguiente código lo que intento es colocar la información que extraigo de una Base de Datos en un ComboBox, este ComboBox le cambie la propiedad ColumCount a 3 ,  este es mi código:
Private Sub Worksheet_Activate()
Set Com = New ADODB.Command
ConStr = "Provider = Microsoft.jet.oledb.4.0; data source = C:\Documents and Settings\Camilo\Mis documentos\Prototipos Macro\prueba.mdb; Persist Security Info=False"
ComStr = "SELECT [Clientes].[ID Cliente], [Clientes].[Razón Social] FROM Clientes ORDER BY [Clientes].[Razón Social] ASC;"
Set rs = New ADODB.Recordset
Call rs.Open(ComStr, ConStr, adOpenStatic)
CBNomClien.Clear
For i = 0 To rs.RecordCount - 1
For j = 0 To 1
CBNomClien.List(i, j) = rs.Fields(j).Value
rs.MoveNext
Next
Next
End Sub
Pero cuando lo ejecuto me saca el error 381 en tiempo de ejecución que me dice :
No se puede configurar la propiedad List. Indice de matriz de propiedades no valido. Y me marca lo que esta en negrita.
Desde ya gracias por su ayuda. PD: Utilizo Office 2003 Professional.