Parece que você não definiu um objeto Recordset para receber os dados do SQL.  Você está usando o método Open do objeto Connection para carregar um Sql. Isto não é possível. Você deverá criar um recordset, e este recordset é que deverá usar o Sql para receber os dados. E atenção: Cuidado com a propriedade RecordCount, ela não é confiável se você não deslocar o ponteiro do recordset para o último registro e depois voltar para o primeiro. Nunca tente usar isso para saber se o recordset está vazio ou não, prefira testar a propriedade EOF (End Of File) para saber se está vazio. Se EOF retornar True, então não há registros. Tente isso:

 

    Dim Retorno as ADOBD.Recordset

 

    Set Retorno = New ADODB.Recordset
    With Retorno
        Set .ActiveConnection = cnn
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = Sql
        .Open

        If Not .EOF Then
            .... Coloque aqui o código para tratar os dados retornados...

        Else
            .... coloque aqui uma mensagem, informando que não há dados.

            Set Retorno = Nothing
        End If