Ayuda con ListView

holas, nesecito mostrar en un listview una consulta pero solo logro mostrar un registro, creo q falta algo o nose.

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

        Dim activo As Integer
        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("Tabla")
            da.Fill(dt)
            con_db.Close()
            For Each row As DataRow In dt.Rows
                activo = CStr(row.Item(7))
            Next
            If activo <> 1 Then

                For Each row As DataRow In dt.Rows

                   ' MsgBox(CStr(row.Item("1"))) 'Aqui si me muestra todos
                   
                    Dim Horario As ListViewItem
                    ListView()
                   MiListView = New ListViewItem(row(0).ToString)
                   MiListView.SubItems.Add(row(1) + " " + row(2))
                   MiListView.SubItems.Add(row(3).ToString)
                   MiListView.Items.Add(Horario)
                Next
            Else
                For Each row As DataRow In dt.Rows

                 '   MsgBox(CStr(row.Item("1")))  'Aqui si me muestra todos
                   
                    Dim Horario As ListViewItem
                    ListView()
                   MiListView = New ListViewItem(row(0).ToString)
                   MiListView.SubItems.Add(row(1) + " " + row(2))
                   MiListView.SubItems.Add(row(3).ToString)
                   MiListView.Items.Add(Horario)

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

solo me muestra el ultimo registro!