Visual Basic - Validacion de un combobox

Hola Quisiera que alguien me ayude, el problema es que al seleccionar un item de un combo box, depende de que itemn seleccione debe aparecer una lista correspondiente en el combo2, lo logre pero en el combo2 me salen los datos pero 2 veces (ejemplo: pongo "Seleccione obra", obra1, obra2, etc, pero me sale "Seleccione obra", obra1, obra2, y de nuevo "Seleccione obra", obra1, etc) no se que estoy haciendo mal, este es el codigo:

Private Sub Combo1_Validate(Cancel As Boolean)
Combo2.AddItem "Seleccione Obra"
Conexion
sql = "select distinct (obra) from estudio where obra <> ''" ''and descripcion like '" & Combo2.Text & "'"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic
rst.MoveFirst
Do While rst.EOF <> True
Combo2.AddItem rst.Fields("obra")
rst.MoveNext
Loop
Combo2.ListIndex = 0

End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Conexion
sql = "select * from presupuesto where descripcion like '" & Combo1 & "'and obra like '" & Combo2 & "'"
On Error Resume Next
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic
cmdGuardar.Enabled = False
cmdModi.Enabled = True
mostrar_datos

On Error GoTo sale
rst.MoveFirst
Do While rst.EOF <> True
rst.MoveNext
Loop
sale:
If Err.Number = 3021 Then
cmdGuardar.Enabled = True
cmdModi.Enabled = False
vaciar_txt
MsgBox"No existe presupuesto", vbOKOnly, "Búsqueda"

End If
End If
End Sub
Gracias

Creo que el problema tuyo es que nunca haces un "combo2.clear", con esa funcion vacias el combobox para llenarlo otra vez, espero que te sirva. Saludos

Muchas gracias por tu ayuda!! ya lo agregue, era eso lo que me faltaba Gracias!!