\' 사용자 삭제
Private Sub Command3_Click()
    userCNT = ListView2.ListItems.Count

    \'DB값 삭제
    Dim i%
   
    rs.MoveFirst
\'    If ListView2.SelectedItem.Index <> 0 Then
\'    For i = 0 To Val(ListView2.SelectedItem.Index)
\'    MsgBox i & ListView2.SelectedItem.Index
\'        rs.MoveNext
\'    Next
\'    End If
                    \'화면에서 데이터를 삭제해주면서 DB값까지 같이 삭제하는걸 구현하는데
                    \'여기 주석처리한부분 이론적으로 생각해보면 맞는것 같은데
                    \'정작해보면 전혀 다른 결과값이 나옵니다.
                    \'우선은 삭제처리하였을경우 가장 위의 튜플들이 삭제되게
                    \'임시로 해놓았습니다.
                       
    rs.Delete
  

    If userCNT = 0 Then Exit Sub
    ListView2.ListItems.Remove ListView2.SelectedItem.Index
   
    StatusBar1.Panels(1).Text = \"사용자 수 : \" & ListView2.ListItems.Count
End Sub


비주얼베이직입니다 ㅠ.. 저기 인덱스랑 DB에 위치랑 맞출려고하는데 어렵네요 햂 ㅠㅠ..