Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As system.EventArgs)  Handles Button2.Click

        If ListBox1.Items.Count = 0 Then

            Dim startIndex = -1

            startIndex = TextBox1.Text.IndexOf("LIN")

            While startIndex > 0

                Dim Stringa1 As String = TextBox1.Text

                Dim MID_VBNET As String = Stringa1.Substring(startIndex + 9, 13)

                ListBox1.Items.Add(MID_VBNET)

                startIndex = TextBox1.Text.IndexOf("LIN", startIndex + 1)

            End While

        End If

    End Sub

"SELECT OITM.ItemCode FROM OITM WHERE OITM.CodeBars = " & ListBox1.Text & ""

        If DataGridView1.RowCount = 0 Then
            cnString = "Database=database;Data Source=SERVER;User Id=sa;Password=password"
            Dim i
            For i = 0 To ListBox1.Items.Count - 1
                ListBox2.SelectedIndex = ListBox2.SelectedIndex + 1
                ListBox2.SelectedItem = ListBox2.SelectedIndex
                sqlQRY = "SELECT [@IEO_CPG_TRASITEMEDI].U_CPG_ITEMCODE, OITM.ItemName FROM [@IEO_CPG_TRASITEMEDI] INNER JOIN OITM ON [@IEO_CPG_TRASITEMEDI].U_CPG_ITEMCODE = OITM.ItemCode WHERE [@IEO_CPG_TRASITEMEDI].U_CPG_CODFORNEDI = CONVERT(NVARCHAR(15)," & ListBox2.SelectedItem & ")"

                conn = New SqlConnection(cnString)

                Try
                  
                    conn.Open()

                    da = New SqlDataAdapter(sqlQRY, conn)

        
                    Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)

                    da.Fill(ds, "ItemCode")

                    DataGridView1.DataSource = ds
                    DataGridView1.DataMember = "ItemCode"


                Catch ex As SqlException
                    MsgBox(ex.ToString)
                Finally
          
                    conn.Close()

                End Try

            Next
        End If