Visual Basic - Como limpiar un listbox con combobox

Hola a todos necesito una pequeña ayuda,trabajo con b.d access tengo un combobox y de ahi selecciono una palabra y me aparece los registros en el list todo bien pero no se como borrar el contenido de los registros del list cuando paso a otra palabra del combo,se que es con lst.clear pero no se donde ubicarlo,aqui les paso el codigo:


Private Sub cbofecha_Click()

Dim combo As String
combo = cbofecha.Text
Select Case combo

Case "Diciembre"
lstfoto.Clear
Do While Not rs.EOF
lstfoto.AddItem rs.Fields(0)
rs.MoveNext
Loop

Case "Enero"
lstfoto.Clear
Do While Not rs.EOF
lstfoto.AddItem rs.Fields(1)
rs.MoveNext
Loop

Case "Febrero"
lstfoto.Clear
Do While Not rs.EOF
lstfoto.AddItem rs.Fields(2)
rs.MoveNext
Loop
end select

bueno espero que me ayuden,de antemano gracias.

Piero

No lo he probado, pero creo que así funcionará:

Private Sub cbofecha_Click()
Dim combo As String
Dim x As Integer
combo = cbofecha.Text
Select Case combo
Case "Diciembre"
x = 0
Case "Enero"
x = 1
Case "Febrero"
x = 2
End Select
lstfoto.Clear
Do While Not rs.EOF
lstfoto.AddItem rs.Fields(x)
rs.MoveNext
Loop
End Sub

Saludos

Tu sentencia es buena y mas sintetica,aunque el resultado sigue siendo igual,los lsts no se borran.¿Otra idea?

Saludos

Ayuda para VB de MSDN:
.... inicio
Clear (Método para Clipboard, ComboBox y ListBox)


Borra el contenido de los controles ListBox o ComboBox, o del Portapapeles del sistema.

Sintaxis

objeto.Clear

El marcador de posición objeto representa unaexpresión de objeto que da como resultado un objeto de la lista Se aplica a.

Comentarios

Los controles ListBox o ComboBox que estén enlazados a un control Data no aceptan el método Clear.
... fin
Al parecer, debes tener algún problema con el control.
Saludos