Ayuda con ListView

hola

no entendi muy bien que haria esta lineas

For Each row As DataRow In dt.Rows
      activo = CStr(row.Item(7))
Next

segun veo esta cargando el ultimo registro, pero lo conviertes a string cuando la variable ald efines como entero

porque no pruebas algo como esto

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim activo_0_1 As String = TextBox1.Text

    Try
        Dim sql As String = "SELECT..."
        con_db.Open()
        Dim da As New MySqlDataAdapter(sql, conexion)
        Dim dt As New DataTable()
        da.Fill(dt)
        con_db.Close()

        For Each row As DataRow In dt.Rows

           Dim item As New ListViewItem(CStr(row(0)))
           item.SubItems.Add(string.Format("{0} {1}", row(1), row(2))
           item.SubItems.Add(CStr(row(3)))
          
           MiListView.Items.Add(item)
          
        Next

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
  
End Sub

saludos