リストビューのMySQLデータがループします（？）

Question

私のリストビューは今日間違っていましたが、ループ内のデータは無限にループしました。どうしましたか？

Public Sub list1() 
    SQLs = "SELECT * FROM petugas" 
    Using CMD As New Odbc.OdbcCommand(SQLs, conn) 
     DR = CMD.ExecuteReader 
     While DR.Read 
      With ListPetugas 
       .Items.Add(DR("kd_petugas")).ToString() 
       With .Items(.Items.Count - 1).SubItems 
        .Add(DR("nm_petugas").ToString()) 
        .Add(DR("j_kel_petugas").ToString()) 
        .Add(DR("almt_petugas").ToString()) 
        .Add(DR("tlp_petugas").ToString()) 
       End With 
      End With 
     End While 
    End Using 
End Sub 

Answer 1

なぜDRをListPetugasにダンプしていますか？

ListPetugasとはどんなコンテキストですか？

このサブを呼び出すイベントをお知らせください。

オブジェクト内のすべてのデータを実際に保持している場合は、代わりにdtを使用してください。