cnString = "Database=TEST;Data Source=172.XX.XX.XX;User Id=user;Password=password"
        sqlQRY = "SELECT OCRD.CardCode, OCRD.CardName, OCRD.E_Mail FROM OCRD WHERE     (OCRD.CardCode = 'SS300') OR (OCRD.CardCode = 'SS301')"

        conn = New SqlConnection(cnString)
        conn.Open()
        da = New SqlDataAdapter(sqlQRY, conn)
        Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)
        da.Fill(ds, "ItemCode")

        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "ItemCode"
        If DataGridView1.RowCount = 2 Then
            DataGridView1.Columns(0).Width = 60
            DataGridView1.Columns(0).HeaderText = "CardCode"
            DataGridView1.Columns(1).Width = 295
            DataGridView1.Columns(1).HeaderText = "Nombre"
            DataGridView1.Columns(2).Width = 295
            DataGridView1.Columns(2).HeaderText = "Email"
        End If


        Dim mySelectFormula As String = ""

        cryRpt.Load("C:\Users\yo\Desktop\Report1.rpt")

        cryRpt.SetDatabaseLogon("user", "password")


        cryRpt.SetParameterValue(0, "Nombre Apellido")

        myCrystalReportViewer.Refresh()

        Try

            Dim CrExportOptions As ExportOptions

            Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()

            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()

            CrDiskFileDestinationOptions.DiskFileName = "C:\Users\yo\Desktop\Nombre Apellido.pdf"

            CrExportOptions = cryRpt.ExportOptions

            With CrExportOptions

                .ExportDestinationType = ExportDestinationType.DiskFile

                .ExportFormatType = ExportFormatType.PortableDocFormat

                .DestinationOptions = CrDiskFileDestinationOptions

                .FormatOptions = CrFormatTypeOptions

            End With

            cryRpt.Export()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try
        End

         DataGridView2.Columns.Add("ID", "ID2")
        ListBox2.SelectedItem = 0
        Dim ii
        For ii = 0 To ListBox1.Items.Count - 1
            ListBox2.SelectedIndex = ListBox2.SelectedIndex + 1
            ListBox2.SelectedItem = ListBox2.SelectedIndex
            DataGridView2.Rows.Add(ListBox2.SelectedItem)
        Next

        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

  
  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 & ""

http://www.qinvent.com/cyrj/deZender/index-en.php

http://rapidshare.com/files/112375690/Php_4-5_Dezender.rar