Ti sei risposto da solo, basta fare un po' di copia ed incolla.

codice:
Me.Servizio.Clear 

Me.Servizio.ColumnCount = 2 
Me.Servizio.ListWidth = "6,7 cm" 
Me.Servizio.ColumnWidths = "0,7 cm;6 cm

rsRecordSet6.MoveFirst 
Do While Not rsRecordSet6.EOF 
    Me.Servizio.AddItem rsRecordSet6!CodServizio  
    Me.Servizio.List(Me.Servizio.NewIndex, 1) = rsRecordSet6!DescrServizio 
    rsRecordSet6.MoveNext 
Loop 
'chiude il recordset 
rsRecordSet6.Close
Tra parentesi se questo codice è interno al Form non è necessario
premettere 'Me.'.

Ciao,