Visual Basic - No se que pasa

Alguien me puede indicar porque no me funciona es funcion, me da error en la linea - Regcliente.Index ="PrimaryKey", porque AdIndex y AdSeek no estan disponibles.
Gracias.

*
Static Function VerCliente(Cod) As String
'*
Dim DatRegistro As String
Dim Busqueda As String
Dim RegCliente As New ADODB.Recordset
Dim Base As New ADODB.Connection
Dim IndiceAdo As Variant
Dim Tabla As String

Conexion = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Daa\Daa_be.mdb"

Set Base = New ADODB.Connection
Base.Open Conexion

Set RegCliente = New ADODB.Recordset
RegCliente.CursorLocation = adUseServer
Tabla = "Clientes"

RegCliente.Open Tabla, Conexion, , , adCmdTable

If RegCliente.Supports(adIndex) And RegCliente.Supports(adSeek) Then
RegCliente.Index = "PrimaryKey"
RegCliente.MoveFirst
RegCliente.Seek Trim(Cod), adSeekFirstEQ

If RegCliente.EOF Then
MsgBox "no Esta"
Else
Debug.Print Trim(RegCliente!Nombre)
VerCliente = Trim(RegCliente!Nombre)
End If
Else
MsgBox "Error..."
End If

RegCliente.Close
Set RegCliente