O VBweb está trocando os nomes, vejamos se com aspas não muda:

"MoveMax e Movefisrt"   ... esqueça isso aqui, só testando se o Vbweb vai mudar.

 

Não entendi o pq da linha:

Adodc1.RecordSource = "nomes"

 

Com ela vc perde o seu filtro, substitua por Adodc1.recordcount

faça assim que é mais seguro:

 

rs.open "select count(campo1) as TotalREg from tabela...",cnn...

msgbox "o total de registros: " & rs!totalReg

Caro colega Erico ;

 

' Tambem faço com SQL assim:

' neste exemplo a sql conta os registros selecionados e soma os valores do criterio

      sql = ""

      sql = "Select count(*) as sqlQtdeParcelasPaga, sum(VlrParcela) as         sqlVlrParcelasPaga "
      sql = sql & " from "
      sql = sql & " ParcelasContrato "
      sql = sql & " where "
      sql = sql & " DataPagamento is not null  "
      sql = sql & " and  NumContratoEmprestimo = " & dblNumContratoEmprestimo

       Err.Clear
       tblParcelas.Open sql, adoBanco, adOpenForwardOnly, adLockReadOnly
       If Err.Number > 0 Then
          MsgBox "......:"

          Exit Function
        Else
          dblQtdeParcelaPaga = IIf(IsNull(tblParcelas!sqlQtdeParcelasPaga), 0, tblParcelas!sqlQtdeParcelasPaga)
                dblVlrParcelaPaga = IIf(IsNull(tblParcelas!sqlVlrParcelasPaga), 0, tblParcelas!sqlVlrParcelasPaga)
        End If
        tblParcelas.Close

faça isso pra se ajuda...

 

bem, eu faço o seguinte

dim rs as adodb.recordset

dim sql as string

sql="select * from clientes"

rs.open sql,conexao, etc....

msgbox rs.recordcount

Olá RCA, o que você deve fazer é retirar a última linha do seu código:

Adodc1.RecordSource = "nomes"

Depois de retirar a linha utilize a propriedade ".RecordCount" baseando-se nos exemplos acima. Aí sim deve funcionar!!!

 

Tentei...

Um abraço!!!