Problemas con contenido de Combobox VB 2008 y sql 2000

Tengo 2 Combobox

en el primero selecciono si pago con tarjeta de crédito o tarjeta de débito.

de acuerdo a lo que escoja aparecen en el segundo combobox las marcas de las tarjetas según corresponda.

cuando en el primer combobox seleccione "Tarjeta de Crédito",en el segundo deberán a parecer "Tarjeta Naranja" y "Tarjeta Cordobesa".

y cuando seleccione "Tarjeta de Débito" deberá aparecer "Tarjeta Galicia"

el problema que tengo es que el segundo combobox muestra 2 veces cada item

Ej:

Private Sub tipoTarj_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipoTarj.SelectedIndexChanged
If Me.tipoTarj.SelectedIndex = 0 Then
Dim consultaC As New SqlCommand
consultaC.CommandText = "select código, descripción, tipoTarjeta " _
& "from MarcaTarjeta " _
& "where tipoTarjeta = 1 "
consultaC.Connection = conexionFJ
da.SelectCommand = consultaC
da.Fill(ds, "t_MT")
Me.marcaTarj.DataSource = ds.Tables("t_MT")
Me.marcaTarj.DisplayMember = "descripción"
Me.marcaTarj.ValueMember = "código"
End If
If Me.tipoTarj.SelectedIndex = 1 Then
Dim consulta As New SqlCommand
consulta.CommandText = "select código, descripción, tipoTarjeta " _
& "from MarcaTarjeta " _
& "where tipoTarjeta = 2 "
consulta.Connection = conexionFJ
da.SelectCommand = consulta
da.Fill(ds, "t_MT")
Me.marcaTarj.DataSource = ds.Tables("t_MT")
Me.marcaTarj.DisplayMember = "descripción"
Me.marcaTarj.ValueMember = "código"
End if
End Sub

desde ya muchas gracias por tu tiempo

Añade tu respuesta

Haz clic para o