Problema de filtro en Data Adapter

[jhonjairo00]

Hola perdona, se me fueron un par de errores

Código vb:

Private 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