caricai cosi.....

Private Sub Carica_MezzoPagamento()

Source = "SELECT cod_mezzo,descrizione FROM mezzo_pagamento"
rs.Open Source, conn

Me.CBB_Pagamento.Clear
Do While rs.EOF = False

Me.CBB_Pagamento.AddItem rs("descrizione")
Me.CBB_Pagamento.ItemData(CBB_Pagamento.NewIndex) = rs("cod_mezzo")

rs.MoveNext

Loop

rs.Close
End Sub


per eventuali cancellazini basta che prndi il listindex e lo cancelli dal databse (bastera ricaricare il combo e quell'elemento non cisara piu)