[@@أبورائد@@]

السطر الأخير
بدل

If count > 0 Then
'
End If

For Each r As DataRow In dt.Rows
'Me.ListBox1.Items.Add(r.Item("id"))
Next


ضع
DataGridView1.DataSource = dt