Consulta Números registros tabla access desde excel vba

Tengo el siguiente código que estuve adaptando para contar los registros de una tabla access desde excel, la tabla tiene 2 registros, pero al ejecutar el
Código me sale -1

Sub Consulta_PPP()
Dim conexion As ADODB.Connection
Dim recordset As ADODB.recordset
Dim Consulta As String
Dim MiBase As String

Set conexion = New ADODB.Connection

MiBase = "\DBACCOUNTANT\" & Hoja1.lblRuc.Caption & Hoja1.lblPeriodo.Caption & ".accdb"
conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.ThisWorkbook.Path & Application.PathSeparator & MiBase

'Consulta = "SELECT * FROM TClientes "
Consulta = "SELECT COUNT(Razon_Social) FROM TClientes "
Rem Consulta = Consulta & "WHERE NRuc ='" & UFRegistroVentas.txtRUC.Value & "'"

Set recordset = New ADODB.recordset
Rem recordset.Open Consulta, conexion, adOpenForwardOnly, adLockOptimistic, adCmdText
recordset.Open Consulta, conexion

total_reg = recordset.RecordCount
MsgBox total_reg
'Do Until recordset.EOF = True
' UserForm1.TextBox1.Value = recordset.RecordCount
' recordset.MoveNext
'Loop

total_reg = 0
Set recordset = Nothing
Set conexion = Nothing
End Sub