Complementar SELECT * FROM - INNER JOIN con BETWEEN

[jeaguiar25]

lojoam:
Gracias por tu respuesta pero no me fue útil ya que mi BD es Access, no se usar SQL y en verdad los datos que movilizo no son de gran peso. Yo intente con esta forma de escribir la sentencia:

RsFallece.Open "SELECT * FROM Historial INNER JOIN Activos ON Historial.HC_Historial = Activos.HC_Activos WHERE (Destino= '" & StrValorFallece & "') AND (Hasta BETWEEN '" & Format(Text1, "mm/dd/yyyy") & "' AND '" & Format(Text2, "mm/dd/yyyy") & "')"

Pero no me resulto, ya había intentado lo mismo pero sin parentesis en '" & StrValorFallece & "') AND (Hasta, y sin parentesis al final, esto lo intente antes de hacer un nuevo tema en el foro. Todo el codigo de la sentencia es este:
Private Sub Cargar_Listado_Click()

Me.ListView1.ListItems.Clear
Dim RsFallece As ADODB.Recordset
Set RsFallece = New ADODB.Recordset
Dim li As ListItem
Dim StrValorFallece As String
StrValorFallece = "Fallece"

RsFallece.Open "SELECT * FROM Historial INNER JOIN Activos ON Historial.HC_Historial = Activos.HC_Activos WHERE Destino= '" & StrValorFallece & "' ", cnn, adOpenDynamic, adLockBatchOptimistic
While (RsFallece.EOF = False)

Set li = ListView1.ListItems.Add(, , RsFallece("Id_Historial"))
li.ListSubItems.Add , , RsFallece("HC_Historial")
li.ListSubItems.Add , , RsFallece("Documento_Historial")
li.ListSubItems.Add , , RsFallece("Nombre1")
li.ListSubItems.Add , , RsFallece("Nombre2")
li.ListSubItems.Add , , RsFallece("Apellido1")
li.ListSubItems.Add , , RsFallece("Apellido2")
li.ListSubItems.Add , , RsFallece("Hasta")
li.ListSubItems.Add , , RsFallece("Procedencia")
li.ListSubItems.Add , , RsFallece("MedicoEgreso")
li.ListSubItems.Add , , RsFallece("Diagnostico")
li.ListSubItems.Add , , RsFallece("APACHEII")

RsFallece.MoveNext
Wend

For i = 1 To ListView1.ListItems.Count
Total = ListView1.ListItems.Count
Next
TextTotal = Total
End Sub

Si se te ocurre algo avisame y sino te agradezco mucho tu preocupación, nuevamente mil gracias!!!

José