Hola perdona, se me fueron un par de errores
Código vb:
Ver originalPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim expression As String
Dim sortOrder As String
Lst_HistoricoFabricacion.Items.Clear()
expression = "Referencia = '" & TextBox1.Text & "' and Lote = '" & TextBox2.Text &"'"
' También se pueden usar expresiones de ordenamiento.
sortOrder = "Nº_HR DESC"
' Se retorna un arreglo de filas.
Dim Rows() As DataRow = Tabla.Select(expression, sortOrder)
For Each _row As DataRow In Rows
Dim item As ListViewItem
item = New ListViewItem(_row.Item("Referencia").ToString)
'Agrego los demas datos a los SubItems de item
item.SubItems.Add(_row.Item("Lote").ToString)
item.SubItems.Add(_row.Item("Nº_HR").ToString)
item.SubItems.Add(_row.Item("Cant_Inicial").ToString)
item.SubItems.Add(_row.Item("Fecha_Inicio").ToString)
item.SubItems.Add(_row.Item("Cant_Fin").ToString)
item.SubItems.Add(_row.Item("Fecha_Fin").ToString)
item.SubItems.Add(_row.Item("Obs_Produccion").ToString)
item.SubItems.Add(_row.Item("Obs_Pedido_Material").ToString)
item.SubItems.Add(_row.Item("Reg").ToString)
'Agrego el item a la colección de listViewItem's de Lst_Operaciones.
Lst_HistoricoFabricacion.Items.Add(item)
Next
End Sub