Visual Basic - ayuda con los combos

tengo dos combobox ,en el cual existe un combo padre, en donde se hace click en los datos de la lista y despliega sus datos asociados en el 2do combo;

-El problema es el sgte :

al presionar un dato de la lista del 1er combo me salen sus datos asociados al 2do cbo. pero si pincho otro elemento en el 1er cbo. salen sus datos asociados pero con los que tenia anteriormente,lo que quiero hacer es que al pichar otro dato los datos que estaban anteriormente se borren en el 2do cbo y sean reemplazado por los datos que corresponden osea..
eliminar la repetitividad .

este es el codigoo:

Private Sub cbo_pro_click()
sql = "SELECT * from funciones where cod_pro=" & cbo_pro.ListIndex & " "

rs.Open sql, cnn, 1, 2, adCmdText
If Not rs.EOF Then
Do While Not rs.EOF
cbo_fun.AddItem rs(1)
rs.MoveNext

Loop
End If
rs.Close
End Sub

Hola has esto:

Private Sub cbo_pro_click()
sql = "SELECT * from funciones where cod_pro=" & cbo_pro.ListIndex & " "
rs.Open sql, cnn, 1, 2, adCmdText
If Not rs.EOF Then

CBO_FUN.clear '>>>>>--------->esto elimina la lista del Combo

Do While Not rs.EOF
cbo_fun.AddItem rs(1)
rs.MoveNext

Loop
End If
rs.Close
End Sub

Saludos

gracias masterr!!!!!