[foradream]

birtane combobox um var içine veri tabanindan kayitları ekliyorum
selectedindex changed eveti bu kayitlardan istediğimi listbox a ekliyebiliyorum

sorunum lixtbox selectedindex başka bir yere aktarmam lazım
eventte eklediğim kod söyle bir hata aliyorum

"Birden fazla adımlı OLE DB işlemi hatalar oluşturdu. Olası ise, her OLE DB durum değerini denetleyin. İş yapılmadı."

nerede ve nasil bir hata yapiyorum birtürlü çözemedim


PrivateSub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim al As New OleDbDataAdapter("select * from user where MusteriID = @p1", baglanti)
al.SelectCommand.Parameters.Add("@p1", OleDbType.Integer).Value = ComboBox2.SelectedValue
Dim ds AsNew DataSet
al.Fill(ds, "user")
If ds.Tables.Count = 0 Then
ExitSub
Else

ListBox1.DataSource = ds.Tables("user")
ListBox1.DisplayMember = ("user")

EndIf


PrivateSub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged


Dim okusana AsNew OleDbCommand("select * from user where pno = @p1", baglanti)
okusana.Parameters.Add("@p1", OleDbType.Variant).Value = ListBox1.SelectedItem
Dim okuma As OleDbDataReader = okusana.ExecuteReader
okuma.Read()
Label20.Text = "P:" & okuma.Item("p")

okuma.Close()


End sub