problema con variable para consulta VBA lib. ADO 2.5

[yumova]

Hola a todos, soy nuevo en esto, y espero me puedan ayudar con este codigo ya que la variable no me funciona correctamente con el select en VBA.. arroja un error 13 "NO COINCIDEN LOS TIPOS" gracias:

Sub tiempos()


el_id = InputBox("digite el id")
Dim cnFacturacion As ADODB.Connection
Dim rsFacturacion As ADODB.Recordset

Set cnFacturacion = New ADODB.Connection
Set rsFacturacion = New ADODB.Recordset

cnFacturacion.Open "ado", "root", ""
rsFacturacion.Open "select id_factura, sum(id_cliente) from facturacion where id_factura = \" & el_id \ " group by id_factura", cnFacturacion, adOpenDynamic, adLockOptimistic

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Tabla con cuadrícula" Then
.Style = "Tabla con cuadrícula"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With

Do While Not rsFacturacion.EOF
Selection.TypeText Text:=rsFacturacion(0)
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=rsFacturacion(1)
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=rsFacturacion(0)
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=rsFacturacion(1)
Selection.MoveRight Unit:=wdCell
rsFacturacion.MoveNext
Loop



End Sub

[PACO_TORG]

creo que seria así, no pierdes nada con probar; tuve un problema similar y me dijeron en este foro que lo hiciera de esta forma y me resulto.. espero que a ti tambien te funcione!

rsFacturacion.Open "select id_factura, sum(id_cliente) from facturacion where id_factura = " & el_id ... y continuas la cadena..

[yumova]

Gracias Paco efectivamente la cadena no estaba completa es algo asi:

'" & el_id & "'.....