Dim i, j As Integer
Dim con As New SqlConnection
Dim cstring As String
Dim cmd As New SqlCommand
cstring = "data source=c7; initial catalog=vbdatabase; integrated security=true"
con.ConnectionString = cstring
con.Open()
cmd = New SqlCommand("select id from sale")
Dim adp As New SqlDataAdapter
adp = New SqlDataAdapter
cmd.Connection = con
adp.SelectCommand = cmd
Dim dt As New DataTable
dt = New DataTable
adp.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "name1"
ComboBox1.ValueMember = "ID"
Dim n As Integer
n = ComboBox1.Items.Count
'n = n - 1
For i = 1 To 10
'j = dt.Rows(n)(0)
If i = dt.Rows(n - 1)("id").ToString() Then
ComboBox2.Items.Remove(i)
Else
ComboBox2.Items.Add(i)
End If
Next