Problemas Con listView en Visual Basic 6

[jeaguiar25]

Hola quisiera saber si alguien me puede ayudar. Tengo una archivo en Acces que modifico utilizando unas
aplicaciones de Visual Basic 6. El Acces posee 2 tablas (Datos y DatosEliminados).
Y desde Visual quiero manipular estas tablas. Puedo cargar cada ListView (ListView1-Datos y ListView2-DatosEliminados)
desde Visual, pero lo que no puedo lograr es pasar la linea que selecciono de uno a otro.
Todo el codigo que utilizo es:

Private Sub Form_Load()
Dim cn As New ADODB.Connection 'Creamos el objeto Connection.
Dim rst As New ADODB.Recordset 'Creamos el objeto Recordset.
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Alumnos\Alumnos.mdb"
rst.Source = "DatosEliminados" 'Especificamos la fuente de datos. En este caso la tabla "contactos".
rst.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rst.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
If rst.State = 0 Then
rst.Open "select * from DatosEliminados", cn
End If
'Agregamos los datos al ListView
rst.MoveFirst 'Nos movemos al primer registro.
Dim li As ListItem
Do Until rst.EOF
'Ponemos los datos leídos en el ListView.
Set li = ListView2.ListItems.Add(, , rst("Matricula"))
li.ListSubItems.Add , , rst("Nombres")
li.ListSubItems.Add , , rst("Apellidos")
li.ListSubItems.Add , , rst("Documento")
li.ListSubItems.Add , , rst("Fechanacimiento")
li.ListSubItems.Add , , rst("Telefonomadre")
li.ListSubItems.Add , , rst("Direccion")
li.ListSubItems.Add , , rst("VencimientoFicha")
li.ListSubItems.Add , , rst("VencimientoCev")
rst.MoveNext 'Pasamos al siguiente registro.
Loop
End Sub
Private Sub Eliminar()
Dim cn As ADODB.Connection
Dim consulta As String
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Alumnos\Alumnos.mdb"

With ListView2.SelectedItem
' pregunta
If MsgBox("Atención: Se va a mover al siguiente Alumno a la Base de Datos de registros primarios" & vbNewLine & _
String(74, "_") & vbNewLine & _
"Matrícula: " & .Text & vbNewLine & _
"Nombres: " & .ListSubItems(1).Text & String(20, " ") & "Apellidos: " & .ListSubItems(2).Text, _
vbExclamation + vbYesNo, "Registro de Alumnos - Opción Restaurar") = vbYes Then
' Elimina

End If
End With
consulta = "INSERT INTO Datos SELECT DatosEliminados.* FROM DatosEliminados"
cn.Execute (consulta)
cn.Close
Set cn = Nothing

End Sub


Private Sub ChameleonBtn1_Click()
DataReport1.Show 1
End Sub


Private Sub ChameleonBtn2_Click()
Unload Me
End Sub


Private Sub ChameleonBtn3_Click()
Call Eliminar
End Sub


Private Sub ChameleonBtn4_Click()
DataReport2.Show 1
End Sub


Private Sub ChameleonBtn5_Click()
Form5.Show 1
Unload Me
End Sub