ayuda con combobox vb net 2005

[palmerasistemas]

Private Sub cbotecnico_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbotecnico.SelectedIndexChanged

'Agrega:
'
If cbotecnico.Text = "" then Exit Sub

'Prueba lo y me comentas.
'Saludos.

If cbocli.SelectedIndex <> -1 Then
criterio &= "p.codpersonal=" & cbocli.SelectedValue.ToString()"
Else

criterio &= "p.codpersonal=" & cbocli.SelectedValue.ToString()
End If
End Select
listaord = negaord.traer_lista_ord(criterio)
Cargar_Listado(listaord)

End Sub