Complementar SELECT * FROM - INNER JOIN con BETWEEN

[lojoam]

Hola Jeguiar como va?
Estaba leyendo tu post, no especificaste que motor de BD estas usando pero presumo que es SQL.
La 1er sugerencia que te voy a hacer es que la consulta o propiamente dicho el String que pasas como query, seria mejor que la guardases en una variable String previamente.
Por ej,deberias de hacer un:

Dim QuerySQL as String
QuerySQL = "blablabla"
rs.Open QuerySQL, cn, etc,etc

Y respecto a la sintaxis de tu consulta (y si es que estas usando SQL) prueba con algo asi:
QuerySQL = "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") & "')"

Y decime como te resulta, suerte!