[vb6] ดึงข้อมูลมาแสดง แต่record สุดท้ายโดนทับ มีรูปประกอบด้านในครับ

Do
   If Trim(rs.Fields("SA_type")) = "1" Then
    a = Trim(rs.Fields("SA_money"))
    sumplus = sumplus + a
    Else
    a = Trim(rs.Fields("SA_money"))
    summinus = summinus + a
    End If
    Set Itemx = ListView2.ListItems.add
        If Trim(rs.Fields("SA_type")) = "1" Then
                Itemx.Text = "ÃѺ"
                
                
                Else
                Itemx.Text = "¨èÒÂ"
                Itemx.ForeColor = vbRed
                
                End If
   Itemx.SubItems(1) = "ÃÒ¡Òà   " & Trim(rs.Fields("SA_supject")) & "             à»ç¹à§Ô¹   " & Format(Trim(rs.Fields("SA_money")), "#,###.#0") & "  ºÒ·"
    'MsgBox Itemx.Text
    
    'MsgBox Text6.Text
    rs.MoveNext
    
    Loop While (rs.EOF = False)
    Itemx.Text = "Total"
    Itemx.SubItems(1) = "ยอดร่วม" & "      " & DTPicker2.Value & "       ¶Ö§      " & DTPicker3.Value & "       = ÃÒÂÃѺ      " & sumplus & "    ºÒ·" & "       = ÃÒÂÃѺ      " & summinus & "    ºÒ·"