Recordset

[D4N1LL0]

Estou tentando retornar o numero de registros numa tabela , mas não consigo porque ele toda hora retorna -1

Dim comand As New ADODB.Command
   Dim rs As New ADODB.Recordset
   With comand
 .ActiveConnection = CNN
 .CommandType = adCmdTable
 .CommandText = "Clientes"
 Set rs = .Execute
 End With
 With rs
 lblregistros.Caption = rs.RecordCount

  
 End With

 Set rs = Nothing
 Set comand = Nothing

ajudem plz

[Graymalkin]

Experimente definir a propriedade CursorLocation do seu ADODB.Recordset para adUseClient. Se não der certo, você ainda pode utilizar uma SQL para contar os registros.

Abraços,

Graymalkin