Buenas tardes amigos foreros.... tengo el un código, con el cual intento cargar un listview. En el Form tengo 2 ComboBox que arrojan un el texto de lo que elija en ellos sobre un TextBox (TextBox5), 1 DataCombo (DataSUBSERVICIO) y un Listview. Lo que escribí es lo siguiente:

Código:
Private Sub CargarHistorial()
Me.ListView1.ListItems.Clear

Dim RsGastServ As ADODB.Recordset
Set RsGastServ = New ADODB.Recordset

Dim StrVALOR_MESRECIBO As String
StrVALOR_MESRECIBO = Text5.Text

Dim StrVALOR_SSERV As String
StrVALOR_SSERV = DataSUBSERVICIO.Text

Dim li As ListItem


RsGastServ.Open "SELECT RENGLONES.RENGLON, RENGLONES.DETALLE, RENGLONES.DEBEHABER, text('" & StrVALOR_MESRECIBO & "').CORRELATIVO, text('" & StrVALOR_MESRECIBO & "').RENGLON, text('" & StrVALOR_MESRECIBO & "').CREDEBITO, ACTIVOS.Correlativo, ACTIVOS.Subservicio " & _
"FROM ((RENGLONES AS TR) INNER JOIN (201711 AS TM) ON TR.RENGLON = TM.RENGLON) " & _
"INNER JOIN ACTIVOS AS TA ON TM.CORRELATIVO = TA.CORRELATIVO " & _
"WHERE TA.Subservicio  LIKE ('" & DataSUBSERVICIO.Text & "') " & _
"Order By (DEBEHABER) DESC, (MR.RENGLON) ASC", cnn, adOpenDynamic, adLockBatchOptimistic

'-----------------Sentencia para verificar campos------------
Dim fld As ADODB.Field
For Each fld In RsGastServ.Fields
Debug.Print fld.Name
Next
'------------------------------------------------------------
 While (RsGastServ.EOF = False)

        Set li = ListView1.ListItems.Add(, , RsGastServ("TR.RENGLON"))
            li.ListSubItems.Add , , RsGastServ("DETALLE")
            li.ListSubItems.Add , , RsGastServ("DEBEHABER")
            li.ListSubItems.Add , , Format(RsGastServ("CREDEBITO"), "00.00", 2)
Cuando la ejecuto da error (diciendo uso no valido en la consulta ) en la siguiente parte:

Código:
text('" & StrVALOR_MESRECIBO & "').CORRELATIVO
Alguien sabe como encerrar correctamente (o referenciar) el String StrVALOR_MESRECIBO???


Desde ya....gracias a quien pueda ayudar!!!!