problema con combobox

[seques]

Bien, muchas gracias, ya solucione el problema.
Resulta q cuando inicia la aplicacion el evento del selectedindex se dispara, por lo q tuve q poner una variable booleana global (xentContables) q arranca en false y cuando lleno el combo 1 la prendo, cuando se acaba la rutina la apago, asi q se pone en tru solo cuando en realidad selecciono un item del combo y ahi si se llena el otro combo; de esta forma

Private Sub cmbdocordpag_selectedindexchanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbDocOrdPag.SelectedIndexChanged

if xentContables = true then
Dim ds As DataSet
Dim cradordpag As clsfin_t_ord_pag_par_det
Dim cnxdb As clsConexion
'' set de la conexion
Try
cnxdb = New clsConexion
cnxdb.login = Me.loginprop
cnxdb.password = Me.passwordprop
cnxdb.servidor = Me.servidorprop
cnxdb.basedatos = Me.basedatosprop
''crea la conexion
cnxdb.conectardb()
cradordpag = New clsfin_t_ord_pag_par_det

cradordpag.conexion = cnxdb

'llenar el combo de cuentas
If Me.cmbdocordpag.selectedindex <> -1 Then
cradordpag.coddocordpagprop = (Me.cmbdocordpag.selectedvalue)
End If
ds = cradordpag.consultarllave
'me.txtmensaje.text = cstr(dsmensajes.tables(0).rows(0)("mensaje"))
Me.cmbctacontable.datasource = ds.tables(0)
Me.cmbctacontable.displaymember = "codnivel"
Me.cmbctacontable.valuemember = "codnivel"
ds = Nothing
cnxdb.desconectardb()
Catch ex As System.Exception

Dim baserrores As New basErroresv100
baserrores.txtmodulo.text = Me.name
baserrores.txterror.text = "error llenando el combo cuenta contable."
baserrores.txtdetalle.text = ex.message
baserrores.showdialog()
Me.close()
End Try
end if
End Sub

End Class