Bueno, parece que tienes nulos conocimientos de SQL pero aquí tienes la solución:
Código:
Dim SQL as String
SQL = "SELECT * From facturas LEFT JOIN clientes ON clientes.cod_cliente = facturas.cod_cliente WHERE clientes.cod_cliente = " & val(Me.Text1.Text)
Saludiños