[OSのVer]：WindowsXP　　　　[VBのVer]：VB.NET　　
また投稿させていただきます。

ListBoxに１つづつ表示させたいのですが、今のままでは、上書きみたいになってしまい、１つしかで
きないのです。どうしたらよいか教えてください。

＜下記にコード＞
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

        scn.Open()

        dAdp = New SqlClient.SqlDataAdapter("SELECT * FROM T_M_商品マスタ Where 商品コ
ード
= " & CInt(txt商品.Text), scn)
        dAdp.Fill(dSet, "t_商品マスタ")

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

        scn.Close()


今のままではだめなので、どこを直したら商品が追加していけるのでしょうか？
教えてもらえないでしょうか。よろしくお願いします。

お世話になります。

さっきの質問からだと
商品名と商品コードは一緒に表示させる必要がありそうなんで…

Dim dt As DataTable = dSet.Tables("t_商品マスタ")
For i As Integer = 0 To dt.Rows.Count -1
　　list商品.Items.Add(Ctype(dt.Rows(i)("商品コード"),String) + ":" + Ctype(dt.Rows(i)("商品
名"),String))

それで、選択された行からコードを取得するやりかたは
Dim selectedItem As String = CType(Me.ListBox1.SelectedItem, String)
Dim itemcode As String = selectedItem.Substring(0, selectedItem.IndexOf(":"))
Dim itemname As String = selectedItem.Substring(selectedItem.IndexOf(":") + 1)

ありがとうございました。
次わからないことがあったらお願いします。