Visual Basic

how to search record in gridview in vb 6.0

sql_query.CommandText = "insert into tablelabel02 with (tablockx) (nome_posto, ordemfabrico, serialnumber, referencia,dataetiqueta,qrgerado,data,operador,posx,posy,impressora,controlo)output inserted.qrgerado
    values (@posto, @ordemfabrico, next value for '" & sequenceID & "' , @refcode, replace(cast(convert(varchar,getdate(),5) as varchar(10)),'-','/'),
    @refcode+replace(cast(convert(varchar,getdate(),5)as varchar(10)),'-','')+right('000'+cast((next value for '" & sequenceID & "' )as varchar (4)),4), getdate(), @operador,@labelx,@labely, @impressora, 'xx' );"

next value for seq_a 

next value for '" & sequenceID & "'

Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click
        Dim arrsize = rtbDHCP_lease.Lines.Length - 1
        Dim MyNum(arrsize)

        For I = 1 To arrsize
            MyNum(I) = rtbDHCP_lease.Lines(I).Substring(41, (rtbDHCP_lease.Lines(I).IndexOf(".", 41) - 41))
            ProgressBar1.Value = (I / arrsize) * 100
        Next

        Dim query = From item In MyNum
                    Order By item
                    Group By vlans = item
                        Into vlans_count = Group, Count()

        For Each result In query
            dgvDHCPcount.Rows.Add(New Integer() {result.vlans, result.Count})
        Next
End Sub

<pre>    Private Sub Gera2d()

        Try
            data = DateAndTime.Now
            Dim con As New SqlConnection
            Dim sql_query As New SqlCommand
            '
            Dim sql_result As SqlDataReader
            '
            con.ConnectionString = "server='" & SqlServer & "';Database=etiquetasKLC;Uid='" & SqlUser & "';PWD='" & Sqlpassword & "';"
            sql_query.Connection = con
            con.Open()
            sql_query.Parameters.Add("@posto", SqlDbType.NVarChar).Value = posto
            sql_query.Parameters.Add("@data", SqlDbType.NVarChar).Value = data
            sql_query.Parameters.Add("@lote", SqlDbType.NVarChar).Value = ordemFabrico
            sql_query.Parameters.Add("@versao", SqlDbType.NVarChar).Value = status
            sql_query.Parameters.Add("@indexnumber", SqlDbType.NVarChar).Value = cavidade + indexnumber
            sql_query.Parameters.Add("@semana", SqlDbType.NVarChar).Value = weekyear
            sql_query.Parameters.Add("@qrgerado", SqlDbType.NVarChar).Value = codigoQr
            sql_query.Parameters.Add("@operador", SqlDbType.NVarChar).Value = op
            sql_query.Parameters.Add("@partnumber", SqlDbType.NVarChar).Value = partnumber
            sql_query.Parameters.Add("posx", SqlDbType.NVarChar).Value = labelx
            sql_query.Parameters.Add("posy", SqlDbType.NVarChar).Value = labely
            sql_query.Parameters.Add("ip_impressora", SqlDbType.NVarChar).Value = enderecoimpressora
            sql_query.CommandText = "INSERT INTO etiquetas with (tablockx)(nome_posto, data, lote, serialnumber,partnumber,versao,indexnumber,semana, qrgerado,operador,snpn,posx,posy,impressora) select top (1) @posto,
            @data,@lote,T.x,@partnumber,@versao, @indexnumber,@semana, T.x+@partnumber+@versao+@indexnumber+@semana, @operador, T.x+@partnumber, @posx,@posy,@ip_impressora
            FROM [etiquetas] x CROSS APPLY (VALUES(format(convert(int,x.serialnumber)+1,'0000000')))T(x) where partnumber like @partnumber  order by id desc ;"

            sql_query.Parameters.AddWithValue("@sn", serialnumber)

            serialnumber = sql_query.ExecuteScalar()

            Try

                If sql_query.ExecuteScalar() <> 0 Then
                    serialnumber = serialnumber
                End If

            Catch ex As Exception
                IO.File.AppendAllText("C:\ti\Log.txt", String.Format("{0}{1}", Environment.NewLine, Now() + " - " + ex.ToString()))

            End Try
            con.Close()
        Catch ex As Exception

            MsgBox(ex.Message)
        End Try
    End Sub