1 Listview cargado desde 2 tablas

[jeaguiar25]

Amigos lo resolvi yo solo, esta es la sentencia que use:



Private Sub Cargar_Listado_Click()
Me.ListView1.ListItems.Clear
Dim rsConsulta6 As ADODB.Recordset
Set rsConsulta6 = New ADODB.Recordset
Dim li As ListItem

rsConsulta6.Open "SELECT * FROM Historial INNER JOIN Activos ON Historial.HC_Historial = Activos.HC_Activos WHERE Desde BETWEEN #" & Format(Text1, "mm/dd/yyyy") & "# AND #" & Format(Text2, "mm/dd/yyyy") & "#", cnn, adOpenDynamic, adLockBatchOptimistic
While (rsConsulta6.EOF = False)
Set li = ListView1.ListItems.Add(, , rsConsulta6("Id_Historial"))
li.ListSubItems.Add , , rsConsulta6("HC_Historial")
li.ListSubItems.Add , , rsConsulta6("Documento_Historial")
li.ListSubItems.Add , , rsConsulta6("Apellido1")
li.ListSubItems.Add , , rsConsulta6("Nombre1")
li.ListSubItems.Add , , rsConsulta6("Desde")
li.ListSubItems.Add , , rsConsulta6("Hasta")
li.ListSubItems.Add , , rsConsulta6("Dias_Internado")
li.ListSubItems.Add , , rsConsulta6("Cama")
li.ListSubItems.Add , , rsConsulta6("Procedencia")
li.ListSubItems.Add , , rsConsulta6("MedicoIngreso")
li.ListSubItems.Add , , rsConsulta6("Diagnostico")
li.ListSubItems.Add , , rsConsulta6("Destino")
rsConsulta6.MoveNext
Wend
For i = 1 To ListView1.ListItems.Count
Total = ListView1.ListItems.Count
Next
TextTotal = Total
End Sub

Lo comparto porque para mi se me torno difícil completarlo, y si le sirve a alguien estaré muy feliz.
Saludos