Excel - inner join en excel no me funciona

strsql = "SELECT factura.sumision, facture.fecha  FROM factura " & _

            "WHERE FACTURA.DATE= ‘CRITERIO’ "

Dim str As String

Dim strsql As String

str = "Provider=MSDAORA;Data Source= MIBD;Persist Security Info=True;Password=****;User ID=****"

Set cnn = CreateObject("ADODB.Connection")

cnn.Open str

Set rs = CreateObject("ADODB.Recordset")

Row = 5

col = 1

strsql = "SELECT Factura.numero, factura.fecha, factura.sumision, Sumisión.numero , Sumision.cliente" & _

            "FROM factura INNER JOIN sumusion  on factura.sumision =sumisión.numero " & _

            "HAVING (((factura.fecha) = '2015-02') And ((sumision.cliente) = '22314'))"

rs.Open strsql, cnn

numRs = rs.Fields.Count

num = 0

Do Until rs.EOF

    Do While num < numRs

    On Error Resume Next

    Cells(Row, col + num).Value = rs(num)

        num = num + 1

    Loop

    num = 0

    Row = Row + 1

    rs.MoveNext

Loop

rs.Close

cnn.Close