Error en el data reader

Hola grupo
tengo el siguiente codigo

drr = sqlCmd.ExecuteReader

If drr.Read = True Then

Do While drr.Read()

Dim lst As New ListViewItem

lst.Text = drr.Item("Cuenta1")

lst.SubItems.Add(drr.Item("Cuenta2"))

lst.SubItems.Add(drr.Item("Cuenta3"))

lst.SubItems.Add(drr.Item("Rut"))

lst.SubItems.Add(Format(drr.Item("Fecha1"), "dd/MM/yyyy"))

lst.SubItems.Add(Format(drr.Item("Fecha2"), "dd/MM/yyyy"))

lst.SubItems.Add(drr.Item("Referencia"))

Me.lsvGlanatrx.Items.Add(lst)

Loop

Else

MessageBox.Show("No existe ningún registro para ser mostrado.")

End If


El problema es que no le muestra todas los registros que tiene la base de
datos. si la base de datos tiene 14 registros, me muestra 13, ¿Cual puede
ser la solución al problema?
Gracias