Te has fijado si tu consulta arroja datos? Colocale un MessageBox en esta parte
Código vb.net:
Ver originallstrpt.Items.Clear()
Dim con As New OleDbDataAdapter(consulta, ConSQL)
Dim pp As New DataTable
con.Fill(pp, "0")
MessageBox.Show("Existen " & pp.Rows.Count & " filas");
Si el mensaje te arroja mas de 0 filas es porque si llena correctamente tu datatable y el error no seria al momento de que agregas a tu listview. Y si arroja 0 tu error está en no controlar la excepción de que no haya filas y al no haber filas tu estas forzando jalar datos de la primera fila cuando no hay ninguna en tu datatable . Saludos!
.