Consulte los registros que cumplen las condiciones en la base de datos ACCESS de acuerdo con las condiciones de consulta especificadas en VB, y los resultados de la consulta se muestran en el control LISTLIEW. Necesita código detallado

Hacer mientras no rs.EOF

rs.MoveNext

Establecer itm = ListView1.ListItems.Add

itm.Text = rs !Departamento

itm.SubItems(1) = rs!Clase

itm.SubItems(2) = rs!ID de estudiante

Bucle

Cambiar a

Hacer mientras no sea rs.EOF

Establecer itm = ListView1.ListItems.Add

itm.Text = rs!Department

itm.SubItems(1) = rs!Class

itm.SubItems(2) = rs!Número de identificación del estudiante

rs.MoveNext

Bucle

Mueve rs.MoveNext antes del bucle

Si haces eso, el primer registro no se agregará y se producirá un error cuando se llegue a la última declaración

Esta es una pregunta lógica. La respuesta anterior también cometió este error