Delete en visual basic y access

[jeaguiar25]

Este ultimo me funciono al sin ningun error, al final el procedimiento lo deje así:

consulta1 = "INSERT INTO Datos SELECT Historico.* FROM Historico WHERE Matricula = '" & ListView2.SelectedItem.Text & "'"
cnn.Execute (consulta1)
consulta2 = "DELETE FROM Historico WHERE Matricula = '" & ListView2.SelectedItem.Text & "'"
cnn.Execute (consulta2)

consulta1 para pasar los datos a otra tabla (Datos) y consulta2 para borrarla de la que carga el listview (Historico)
Utilice las mismas sentencias para pasar los datos a la tabla historica, cambiando los nombres de las tablas y la referencia del listview (todo esto lo pongo por si le sirve de dato a alguien más). Te agradezco mucho lokoman fuiste de gran ayuda, hugo180486 te agradezco a ti tambien tu aporte pero no me resulto.