[OSのVer]：WindowsXP　　　　[VBのVer]：VB.NET
<内容>
SQLSeverからデータをListBoxに表示しListBoxで選択されたものを削除(削除ボタン)しようとすると
エラーが出る
なぜエラーが出るのかわかりませんので教えてください。
＊ListBoxには商品名は表示できます。
以下にコードを記述しときます

Private Sub txt商品_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txt商品.LostFocus
        Dim scn As SqlClient.SqlConnection = New SqlClient.SqlConnection( _
                "Data Source = localhost;Persist Security Info=False" _
                & ";Integrated Security=SSPI;database=Yuukari")
        Dim dSet As DataSet = New DataSet("t_商品マスタ")
        Dim dAdp As SqlClient.SqlDataAdapter

        dAdp = New SqlClient.SqlDataAdapter("SELECT * FROM T_M_商品マスタ", scn)
        dAdp.Fill(dSet, "t_商品マスタ")

        list商品.DataSource = dSet.Tables("t_商品マスタ")
        list商品.DisplayMember = "商品名"
        list商品.ValueMember = "商品コード"

        btn削除.Enabled = True
        txt数量.Enabled = True
        txt数量.Focus()

    End Sub

Private Sub btn削除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btn削除.Click
        '***今現在の削除方法 2005/09/15 始め***
        '選択された商品を削除する
        If MsgBox("削除してもよろしいですか？", MsgBoxStyle.YesNo) = MsgBoxResult
.Yes Then
            list商品.Items.Remove(list商品.SelectedItem)
        End If

        '***今現在の削除方法 2005/09/15 終わり***
    End Sub


<エラー発生場所>
　　
list商品.Items.Remove(list商品.SelectedItem)

の所で発生します。
どこがいけないのかわかりません。教えていただけないでしょうか。

お世話になります。

とりあえず、どんな例外が出たか書きましょう。
で、ListBoxにデータベースなどのデータをバインドした場合、
Item.Removeはできないです。

なので、DataSource（DataTable）から削除しましょう。

Private Sub btn削除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btn削除.Click
　　Dim dt As DataTable = CType(list商品.DataSource, DataTable)
　　dt.Rows.RemoveAt(Me.list商品.SelectedIndex)
　　Me.list商品.Refresh()
End Sub

解決できました。
本当にありがとうございました！！

解決できました。
本当にありがとうございました！！