Redondear Formato Numérico en un Listview en VB.NET

[mangelperu]

Buenos días, al cargar un listview una columna de datos numericos  por ejemplo 1,000.53 lo cargar así 1001, no encuentro la manera de ponerle formato numerico "#,##0.00".


  Sub CargarDatos()
        conextarse.Open()
        Dim sql As String = "SELECT Cuenta,Denominacion, Debe, Haber FROM TAsientosParametros WHERE Asiento='VP'"
        'Dim CARGA As New OleDb.OleDbDataAdapter("SELECT * FROM PlanContable WHERE Tipo_Registro='VEN' ORDER BY CUENTA", conextarse)

        MiAdaptador = New OleDbDataAdapter(sql, conextarse)
        MiAdaptador.Fill(TablaList)
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'TablaList.Rows(0).Item("Cuenta") = "701101"
        'TablaList.Rows(0).Item("Denominacion") = "Terceros"

        Dim Renglon As DataRow = TablaList.NewRow()

        TablaList.Rows(0).Item("Debe") = CDbl(txtTotal.Text)
        TablaList.Rows(1).Item("Debe") = Val(txtIGV.Text)

        TablaList.Rows.Add(Renglon)

        TablaList.Rows(2).Item("Cuenta") = "701101"
        TablaList.Rows(2).Item("Denominacion") = "Terceros"
        TablaList.Rows(2).Item("Debe") = 3220

        ListView2.Items.Clear()
        For Each registro In TablaList.Rows
            Dim fila As ListViewItem
            fila = ListView2.Items.Add(registro("Cuenta")) ' cabecera del listview-ItemPrincipal
            With fila
                .SubItems.Add(registro("Denominacion")) '1 los subItem o el resto de las columas
                .SubItems.Add(registro("Debe"))
                '.SubItems.Add(registro("Haber")) '1 los subItem o el resto de las columas
                ''Aqui puedes ir agregando todas las columnas que quieras mostrar de tu tabla
            End With
        Next
    End Sub

Gracias por su apoyo