请教下各位大神我的这段循环代码为什么不行

Question

小弟初学，谢谢了。这样得不到任务数据 
    Dim SqlCommand As New SqlClient.SqlCommand
    Dim com As New SqlClient.SqlCommand
    Dim myscr As Screen
    Private Sub test1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim itmX As New ListViewItem
        itmX.SubItems.Clear()
        Dim i As Integer
        lst.View = View.Details
        lst.Columns.Add(" ", 3)
        lst.Columns.Add("ID", 30)
        lst.Columns.Add("标题", 200)
        lst.Visible = True
        SqlCommand.CommandText = "select * from [newnotice] Order by id desc"
        SqlCommand.Connection = con
        con.Open()
        Dim drs As SqlClient.SqlDataReader = SqlCommand.ExecuteReader
        Try
            
            While drs.Read()
                For i = 1 To lst.Items.Count
                    itmX.SubItems.Add(drs("id").ToString)
                    itmX.SubItems.Add(drs("title").ToString)
                    lst.Items.Add(itmX)
                Next
            End While        Catch ex As Exception
            'MessageBox.Show("数据载入错误!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Finally            drs.Close()
            con.Close()
        End Try    End Sub

Answer 1

 While drs.Read()
 drs.movenext
 End While