Pasar desde VB 6 datos de una Tabla Acces a otra

[lokoman]

Hola!!
Puedes saber el item seleccionado asi:

Código vb:

Dim TMP
    If lsvUNO.ListItems.Count > 0 Then
        TMP = Abs(lsvUNO.SelectedItem)
    Else
        MsgBox "No hay registros para seleccionar!!", vbInformation
        Exit Sub
    End If
    
'El select en un recordset
    rstData.Open "SELECT * FROM TABLA WHERE CAMPO='" & lsvUNO.ListItems(Val(TMP)).SubItems(1) & "'", Conexion, adOpenStatic, adLockReadOnly