Visual Basic - Combo5_click

Hola gracias por el tiempo que dedicaras a esto... La situacion es la siguiente : Dos Combos, combo4 y combo5. En combo4 de acuerdo al ITEM seleccionado se modifican los ITEMS del list de Combo5 por medio de una consulta SQL pero me presenta un problema: Cuando pongo en ejecucion el formulario y doy click en el combo 4, entonces ocurre que desaparece el ITEM que anteriormente estaba ya seleccionado. Como hago para que en el caso que ya exista un ITEM seleccionado este no me deje en blanco el Combo y lo mantenga ... ??
Cual sera el problema.... ??
El ejemplo es el siguiente...:::

Option Explicit
Dim CMDUNIFLOTE1 As New ADODB.Command
Dim RSTUNIFLOTE1 As New ADODB.Recordset
'--------------------------------------
Private Sub Combo4_Click()
Call Open_Database

If Combo4.Text = "OROPER" Then
'haciendo el llamado al procedimiento uniflote para llenar el _
combo5 de unidades a flote.
Set CMDUNIFLOTE1.ActiveConnection = cnn
CMDUNIFLOTE1.CommandText = "SELECT unidades.sigla, unidades.componente" _
& " From unidades" _
& " WHERE unidades.componente=FSUPA"
RSTUNIFLOTE1.CursorLocation = adUseClient
RSTUNIFLOTE1.Open CMDUNIFLOTE1, , adOpenStatic, adLockBatchOptimistic

'Agregando las siglas a la lista del combo5.
Do While Not RSTUNIFLOTE1.EOF
Combo5.AddItem RSTUNIFLOTE1!SIGLA
RSTUNIFLOTE1.MoveNext
Loop

Set CMDUNIFLOTE1 = Nothing
RSTUNIFLOTE1.Close
' Combo5.ListIndex = 0 SE QUITA PARA QUE NO SE AMARRE AL PRIMERO EN LA LISTA DESPLEGABLE

End If