Visual Basic - Ayuda con dataReport y DataEnvironment

Hola a todos:
Tengo el siguiente problema y es que a la hora de asignar por codigo una consulta sql al DataEnvironment no me la coge y me visualiza un registro cualquiera en el datareport, a que puede ser? Aqui os paso el codigo, que yo creo que esta bien.
Un saludo y gracias a todos.

Function imprimirFax()
Dim consulta As String

If DataEnvironment4.rsfacturaG.State = adStateOpen Then
DataEnvironment4.rsfacturaG.Requery
DataEnvironment4.rsfacturaG.Close
End If
DataEnvironment4.Commands("facturaG").CommandText = "select facturas.*,LineaFac.* from facturas,LineaFac where LineaFac.idfac=facturas.idfac and facturas.idfac=" & idfa
Unload DataEnvironment4
Unload DataReport3

DataReport3.Show

End Function

idfa es el identificador de factura y los idfac de las tablas factura y lineaFac estan relacionados.Un saludo y gracias